Visual Basic - POQUE NO ANDA ESTE CODIGO??

If rsdatos.RecordCount <> 0 Then
Cargar_cajas
Command1(1).Enabled = False
Command1(2).Enabled = False
Call deshabilitarcajas
Form1.Show
Else
MsgBox "Debe ingresar un registro", vbDefaultButton1, "Atención"
rsdatos.AddNew
Call limpiarcajas
Call Habilitarcajas
Call deshabilitarbotones
Command1(1).Enabled = True
Command1(6).Enabled = True
Text1(1).SetFocus
Text1(0).Enabled = False
n = 1
Text1(0).Text = n
End If
(LO TENGO HECHO EN OTRO PROGRAMA Y ANDA BIEN Y EN ESTE NO, QUE PUEDE SER ?'????)
LA FUNCION CARGAR CAJAS LA TENGO HECHA ASI
TEXT1(0).TEXT = RSDATOS.FIELDS(0).VALUE