LOGIN PAGE

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
Dim flag As Integer
flag = 0
rs.MoveFirst
Do While Not rs.EOF
If rs.Fields(0) = Text1.Text And rs.Fields(1) = Text2.Text Then
MsgBox "log in thi gayu"
flag = 1
Form2.Show
Exit Sub
End If
rs.MoveNext
Loop
If flag = 0 Then
MsgBox "password khoto che"
End If
End Sub

Private Sub Form_Load()
Setcon = New ADODB.Connection
con.ConnectionString = "your provider write here"
con.Open
Set rs = New ADODB.Recordset
rs.Open "seect * from vb_login", con, adOpenDynamic, adLockOptimistic
End