ساخت فرم لوگين با ديتابيس اكسس

سلام

ببخشيد كه شايد سوالم تكراري باشه ولي چون به پاسخ مناسبي نرسيدم مجبوربه پرسيدن شدم

من تو برنامم يه فرم دارم
ميخوام در يك تكست باكس نام كاربري و در يكي پسورد رو وارد كنم بعدش وارد فرم مثلا دو بشم

از اين كدي كه آقا محسن دوست عزيز نوشتن استفاده كردم ( ديتابيسم اكسس هست).

username=adodc1.Fields(0)

password=adodc1.Fields(1)

if username = text1 and password = text2 then

Form2.show

unload me

else

msgbox "password is not correct."

end if

اما مشكل اينجاست كه من چند تا نام كاربري و پسورد دارم و وقتي در كادر يوزنيم و پسورد رو وارد ميكنم فقط سطر اول ديتابيس و ميخونه و اگه درست بود وارد ميشه اما اگه يوزنيم و پسوردي كه در سطر دوم باشه رو وارد كنم ميگه نام كاربري اشتباه است.

چي كار بايد بكنم كه اين مشكل حل بشه؟

سلام علیکم
کد زیر را بررسی کنید:

Private Sub Command1_Click()

    With Adodc1

        .RecordSource = "SELECT * FROM tblUsers WHERE UName='" & Text1 & "' AND UPass='" & Text2 & "'"

        .Refresh

        If .Recordset.RecordCount > 0 Then

            MsgBox "OK.", vbInformation

        Else

            MsgBox "Incorrect username or password", vbCritical, "Error"

        End If

    End With

End Sub

بجای tblUsers، UName، UPass نام جدول و فیلدها رو جایگزین کنید

موفق باشید

آقا محسن بسيار سپاسگذارم

كاملا دقيق و درست عمل كرد