Hacer login y password en Visual Basic

[crucifijo]

Hola expertos, espero me puedan ayudar fijense que estoy haciendo un sistema, para la entrada y salida de empleados, la bases de datos la tengo en access 2000 y la interfaz la estoy haciendo en visual basic 6.0, estoy manejando 3 tablas y una se llama EMPLEADOS y esta compuesta de la sig, forma

EMPLEADOS

IdEmpleado (cve principal)
Nombre
Apaterno
Amaterno
Area
Fecha
Hora_entrada
Hora_salida
Telefono
Login
Password

Mi duda es ¿Como puedo conectarme a la base y hacer como en windows que pida el login y el password para pasar a la siguiente forma, obviamente utilizo dos botones y dos combos pero no se como conectarme y hacer que validen eso datos?

Espero me pueda hechar la mano gracias

P.D. Por si alguien se apiada de mi este es mi messenger [email protected]

[Renedvb]

Private Sub Command1_Click()
Beep
End
End Sub

Private Sub Command2_Click()
Beep
End
End Sub


Private Sub Label4_Click()
Beep
End
End Sub


Private Sub Form_Load()
Data1.Visible = False
Data1.DatabaseName = App.Path + "\pas1.mdb"
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
SendKeys "{home}+{end}"
Text1.Text = LCase(Text1.Text)
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Data1.RecordSource = ("select * from pass where password='" & Text2.Text & "' and user = '" & Text1.Text & "'")
Data1.Refresh
If Text3.Text = "" Or Text4.Text = "" Then
MsgBox "Aceso Denegado", vbCritical, "Password"
Text1.SetFocus
SendKeys "{home}+{end}"
Else
MsgBox "Aceso Aprobado", vbInformation, "Password"
Unload password
Load main
main.Show
'Load frmTip
'frmTip.Show 1
End If
End If
End Sub

[Renedvb]

Private Sub Command1_Click()
Beep
End
End Sub

Private Sub Command2_Click()
Beep
End
End Sub


Private Sub Label4_Click()
Beep
End
End Sub


Private Sub Form_Load()
Data1.Visible = False
Data1.DatabaseName = App.Path + "\pas1.mdb"
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
SendKeys "{home}+{end}"
Text1.Text = LCase(Text1.Text)
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Data1.RecordSource = ("select * from pass where password='" & Text2.Text & "' and user = '" & Text1.Text & "'")
Data1.Refresh
If Text3.Text = "" Or Text4.Text = "" Then
MsgBox "Aceso Denegado", vbCritical, "Password"
Text1.SetFocus
SendKeys "{home}+{end}"
Else
MsgBox "Aceso Aprobado", vbInformation, "Password"
Unload password
Load main
main.Show
'Load frmTip
'frmTip.Show 1
End If
End If
End Sub

esta es una forma espero que te sirva