[vb6] Entering the form with password

[Sth]

You can connect Access with ADO. This is usefull cuz if you login with access u can change password when u want

Dim cnn As New ADODB.Connection
Dim tablo As New ADODB.Recordset

Private Sub Command1_Click()
On Error GoTo error
With tablo
tablo.Open "Select * from enter where userid!='" & Text1.Text & "' and password='" & Text2.Text & "'", cnn, adOpenDynamic, adLockOptimistic
If tablo.EOF Then
MsgBox "ID or Password wrong. Please try again.", 0 + vbCritical, "Warning"
cnn.Close
Unload Me
Else
cnn.Close
Unload Me
End If
End With
hata:
End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.ConnectionString = "customer.mdb"
cnn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cnn.CursorLocation = adUseClient
cnn.Open