ورود ادمين

[sevigol]

با سلام
این کدی که من واسه ورود کاربر استفاده کردم ولی یه مشکلی که وجود داره میخوام خطاهای احتمالی رو هم داشته باشم
واگر کاربری با پسورد خودش وارد نشه خطا بگیره ولی نمی دونم مشکل کجاست؟
2)باید یه ادمین داشته باشم که فقط اون اجازه دسترسی را داشته باشه کدشو نمی دونم چی کار کنم؟

Dim str1 As String
Dim str2 As String
txtUserName.Text = Trim(txtUserName.Text)
txtPassword.Text = Val(txtPassword.Text)
If txtUserName.Text <> "" And txtPassword.Text <> "" Then
str1 = txtUserName.Text
str1 = "username ='" & str1 & "'"
Adodc1.Recordset.Find str1
If Adodc1.Recordset.EOF = True Then
MsgBox "äÇã ˜ÇÑÈÑí ÇÔÊÈÇå ÇÓÊ", vbCritical, "íÇã"
txtUserName.Text = Empty
Exit Sub
str2 = txtPassword.Text
str2 = "password ='" & str2 & "'"
Adodc1.Recordset.Find str2
If Adodc1.Recordset.EOF = True Then
MsgBox "ÑãÒ ÚÈæÑ ÇÔÊÈÇå ÇÓÊ", vbCritical, "íÇã"
txtPassword.Text = Empty
Else
Form2.Show
End If
End If
End If
ممنون میشم کمکم کنید

[nader.golab]

عزیزم از دستور Select استفاده کن
به این صورت که اول کابر نام رو وارد می کنه(در واقع این نام کاربری در بانک جستجو می شه)
بعد که برنامه فهمید که کدوم رکورده Pass رو هم در فیلد بعدی نمایش می ده
فقط کافی شما pass کاربر رو با بانک چک کنی