SoloCodigo

Hola. Necesito si alguien me puede resolver un problema que tengo con un progama que estoy haciendo en visual basic.
El problema es el siguiente. Tengo un formulario en el que quiero q al producirse el evento load aparezcan en pantalla tantos command button como registros tengo una tabla de la base de datos. Tengo escrito e l siguiente código:

Private Sub Form_Load()
 Set db2 = OpenDatabase("C:basebar.mdb")
 Set rst2 = db2.OpenRecordset("SELECT * FROM BEBIDAS")
 rst2.MoveLast
 rst2.MoveFirst
 i = rst2.RecordCount
 cmdPrueba(0).Caption = rst2!Nombre
 For j = 1 To i - 1
    Load cmdPrueba(j)
    rst2.MoveNext
    cmdPrueba(j).Caption = rst2!Nombre
    cmdPrueba(i).Visible = True
    cmdPrueba(i).Left = 10
    cmdPrueba(i).Top = 10 + j * 30
 Next j
End Sub

Pero no me funciona, me dice que el elemento 4 de la matriz no existe.
¿alguien me puede ayudar?
Un saludo y gracias.