Hacer login y password en Visual Basic

[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