[hago]

انت لم تختر طريقة الربط ADO
اذهب الى Project ---> References
وإختر
Microsoft ActiveX Data Objects 2.7 Library
اذهب للـــ Module
عرف الاتى :

PHP كود :

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Dim SQLs As String 


فى حدث الفورم لود :

PHP كود :

If db.State = adStateOpen Then db.Close
db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open App.Path & "\database.mdb" 


اما فى كود دخول غير الاتى :

PHP كود :

SQLs = "SELECT * FROM users WHERE name ='" & Text1.Text & "'  and  password='" & Text2.Text & "'" 


انت كاتب فى الكود Username وهى فى قاعدة البيانات users
ليصبح الكود النهائى لكوماند الدخول :

PHP كود :

If Text1 = "" Or Text2 = "" Then
MsgBox " Sorry,You Must Type The Username And Password ", vbCritical + vbMsgBoxRight, " ErrorLogin "
Exit Sub
End If
SQLs = "SELECT * FROM users WHERE name ='" & Text1.Text & "'  and  password='" & Text2.Text & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQLs, db, adOpenKeyset, adLockPessimistic
If rs.EOF Then
MsgBox " Sorry, The Username And Password Is Wrong ! ", vbCritical + vbMsgBoxRight, " Error Login "
Text2 = ""
Text2.SetFocus
Else
'Save This Inforamtion
users= Text1
password= Text2
Set rs = Nothing
Set db = Nothing
Me.Hide
MDIForm1.Show
End If 


فى مشكلة فى المحرر لذلك ارفقت لك التعديل على النوت باد
بالتوفيق