Programacion en visual basic 6

Hola para tod@s

Tengo un problema con el ingreso de usuarios, el codigo es el que a continuacion mostrare, solo a veces puedo ingresar dos usuarios de los tres que he definido, estos usuarios estan en uana base de datos con Nombre de usuario y contaseña asignados, quisiera que revisaran este codigo para sabrer si la logica del programa y sus instrucciones estan bien definidas...

les agradesco mucho ..........jho cravis

Private Sub cmdEntrar_Click()
Dim usuario As String
Dim contrasena As String
Dim TipoUsuario As String
Dim mensaje As String

frmUsuarios.Data1.Refresh

usuario = Text1
contrasena = Text2
Do Until frmUsuarios.Data1.Recordset.EOF
If frmUsuarios.Data1.Recordset.Fields("nombre_usuario").Value = usuario And frmUsuarios.Data1.Recordset.Fields("contrasena_usuario").Value = contrasena And frmUsuarios.Data1.Recordset.Fields("tipo_usuario").Value = "administrador" Then
MsgBox "Hola " & usuario & ", ¿Cómo has estado?", vbOKOnly, "Bienvenido al Programa"
frmIngreso.Hide
frmUsuarios.Show
Exit Sub
Else
frmUsuarios.Data1.Refresh
Do Until frmUsuarios.Data1.Recordset.EOF
If frmUsuarios.Data1.Recordset.Fields("nombre_usuario").Value = usuario And frmUsuarios.Data1.Recordset.Fields("contrasena_usuario").Value = contrasena And frmUsuarios.Data1.Recordset.Fields("tipo_usuario").Value = "academico" Then
MsgBox "Hola " & usuario & ", ¿Cómo has estado?", vbOKOnly, "Bienvenido al Programa"
frmIngreso.Hide
frmAcademico.Show
Exit Sub
Else 'sino academico
frmUsuarios.Data1.Refresh
Do Until frmUsuarios.Data1.Recordset.EOF
If frmUsuarios.Data1.Recordset.Fields("nombre_usuario").Value = usuario And frmUsuarios.Data1.Recordset.Fields("contrasena_usuario").Value = contrasena And frmUsuarios.Data1.Recordset.Fields("tipo_usuario").Value = "contable" Then
MsgBox "Hola " & usuario & ", ¿Cómo has estado?", vbOKOnly, "Bienvenido al Programa"
frmIngreso.Hide
frmMensualidades.Show
Exit Sub
Else ' Sino contable
'Se mueve al Siguiente registro buscando contable
frmUsuarios.Data1.Recordset.MoveNext
End If ' fin sino contable
Loop 'Terminar Bucle Contable
mensaje = MsgBox("No te Conozco " & usuario & ", Intenta de Nuevo", vbOKOnly, "Atención, Usuario No Autorizado!!!")
If (mensaje = 1) Then
frmIngreso.Show
Text1 = ""
Text2 = ""
Else
End
End If 'Final If mensaje Falso contable


'REGISTRO ACADEMICO
'Se mueve al Siguiente registro buscando academico
frmUsuarios.Data1.Recordset.MoveNext
End If ' fin sino academico
Loop 'Termina bucle academico

mensaje = MsgBox("No te Conozco " & usuario & ", Intenta de Nuevo", vbOKOnly, "Atención, Usuario No Autorizado!!!")
If (mensaje = 1) Then
frmIngreso.Show
Text1 = ""
Text2 = ""
Else
End
End If 'Final If mensaje Falso academico



'REGISTRO ADMINISTRADOR
'Se mueve al Siguiente registro buscando administrador
frmUsuarios.Data1.Recordset.MoveNext
End If ' fin sino administrador
Loop 'termina bucle administrador
mensaje = MsgBox("No te Conozco " & usuario & ", Intenta de Nuevo", vbOKOnly, "Atención, Usuario No Autorizado!!!")
If (mensaje = 1) Then
frmIngreso.Show
Text1 = ""
Text2 = ""
Else
End
End If 'Final If mensaje Falso administrador
End Sub