Visual Basic - duda con un login en visual basic 6.0

Ayudenme k esta mal en este codigo, por que no me deja hacer nada el codigo nos habla de una forma llamada login.frm, una base de datos contenida en c:PDIPDI01
los campos son usuario, password y tipo de estatus
el ultimo nos dice si sera un administrador total, medio u usuario, pero no me sale bien, alguien podria ver mi codigo

Public OK As Boolean
Private Sub Data1_Validate(Action As Integer, Save As Integer)
With Data1.Recordset
.FindLast
If .EOF Then .MoveNext
End With
Exit Sub
End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub
Public Sub Command1_Click()
If Text1(0).Text = Text2.Text Then
ban = 1
Else
MsgBox "Te Equivocaste en el usuario, ¡Trata de Nuevo!", , "Login"
End If
If Text3.Text = Text1(1).Text Then
ban1 = 1
Else
MsgBox "Te Equivocaste en el password, ¡Trata de Nuevo!", , "Login"
End If
If Text4.Text = 1 Then
at = 1
Else
End If
If Text4.Text = 2 Then
am = 1
Else
End If
If Text4.Text = 3 Then
u = 1
Else
End If
If ban = 1 & ban1 = 1 & at = 1 Then
OK = True
Me.Hide
Academicos.Show
Else
End If
If am = 2 Then
OK = True
Me.Hide
Academicos1.Show
Else
End If
If u = 3 Then
OK = True
Me.Hide
Academicos2.Show
Else
End If
End Sub
Private Sub Form_Load()
Dim ban,ban1,ban2,at,am,u
ban= 0
ban1= 0
at=0
am=0
u = 0
Text1(0).DataField = "Usuario"
Text1(1).DataField = "Password"
Text1(2).DataField = "Tipo de Estatus"

End Sub

La verdad no entendí nada de ese ladrillo, pero supongo te estás haciendo un re problema cuando esa rutina podría ser muy, pero muy pequeña.

¿Porque no tratas con un control data asociado a tu base de datos?

data1.databasename = "tubasedatos" solo configuras ese parametro.
Luego en un command

Data1.RecordSource = "select all *from xxx where usuario='" & Text2.Text & '" and clave='" & Text2.Text & '" estatus='" & Text3.Text & '"
Data1.Refresh
' xxx nombre de tu tabla,
' usuario, clave, estatus los campos de tu tabla
If Data1.Recordset.RecordCount = 0 Then
' haces lo que tengas previsto en caso de que el usuario ingresado exista o concuerde
Else
' el usuario no existe o no concuerda
End If

Gaby.