Уважаемые профессионалы VB.
Подскажите, в чём моя ошибка.
Есть форма frm21, на ней рисунок (Pic1) - контейнер, на который я хочу динамически добавить несколько кнопок (crc). Свойства кнопок хранятся на MS SQL 2000.
Вот код:

Option Explicit
Private WithEvents crc As CommandButton

Private Sub crc_Click()

Dim pid As String

pid = frm21.ActiveControl.name
frm21.Hide
frmSearch.Show

End Sub

Private Sub Form_Load()

Dim opt As Integer

Call deSklad.But
Do While Not deSklad.rsBut.EOF
opt = deSklad.rsBut("Indx")
Set crc = Controls.Add("VB.CommandButton", "crc" & opt, Pic1)
crc.Visible = True
crc.Height = 255
crc.Width = 255
crc.Top = deSklad.rsBut("Y")
crc.Left = deSklad.rsBut("X")
deSklad.rsBut.MoveNext
Loop
deSklad.rsBut.Close

End Sub

При событии Form_Load() все кнопки появляются как надо, но при клике по любой из них, кроме последней загруженной в цикле, ничего не происходит. При нажатии на последнюю начинается обработка события crc_Click().
В чём может быть дело?