ورود ادمین

[amene]

با سلام
این کدی که من واسه ورود کاربر استفاده کردم ولی یه مشکلی که وجود داره میخوام خطاهای احتمالی رو هم داشته باشم
واگر کاربری با پسورد خودش وارد نشه خطا بگیره ولی نمی دونم مشکل کجاست؟
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
ممنون میشم کمکم کنید