أرجوالمساعدةللأهمية،كيف استخدم الADOفي هذا المثال؟

السلام عليكم ورحمة الله وبركاته

هل من الممكن مساعدتي في تحويل الكود التالي إلى كود يعمل نفس الوظيفة ولكن بإستخدام ADO

وظيفة الكود:

البحث عن (اسم الدخول) في قاعدة البيانات2000 MS ACCESS باستخدام الاداة DATA

ومطابقة اسم الدخول المدخل مع الموجود في قاعدة البيانات ومطابقة كذلك (كلمة السر)

الخاصة بهذا الاسم

واريد استخدام ال ADO عوضاً عن ال DATA TOOL

الكود الكامل كالتالي... والكود المطلوب تبديله في جزء cmdOK_Click

'frmlogin


Private Sub cmdCancel_Click()
Dim i As Byte
Beep
i = MsgBox("You want to exit this Application", vbYesNo, "Exit Application")
    
    If i = vbYes Then
        End
    End If
End Sub

Private Sub cmdOK_Click()
logindata.Recordset.FindFirst ("USER_ID='" + txtUserName.Text + "'")
    If Not logindata.Recordset.NoMatch Then
        If txtPassword.Text = logindata.Recordset.Fields("PASSWORD") Then
            Me.Hide
            main.Show
        Else
            i = MsgBox("Enter correct password.", vbOKOnly, "Incorrect Password")
        End If
    Else
        MsgBox "Either User name or Password is incorrect or ask your system administrator for further details."
    End If
End Sub

مع العلم ان الفورم يحوي 2text box الاول لاسم الدخول والثاني لكلمة السر ويحوي 2command button الاول لالغاء العملية cmdCancel_Click والثاني للموافقة cmdOK_Click

وملف قاعدة البيانات اسمه db1

أرجو المساعدة للأهمية وجزاكم الله خيرا على ما تبذلونه من جهود

اختكم

الجوري