تعيين دسترسي براي كاربران(2)

[amene]

من يه فرم login دارم كه ميخوام كاربر ادمين بتونه به فرم هاي خاص دسترسي ثيدا كنه ولي وقتي توي پايگاه ادمين را تعريف ميكنم نميدونم كجاي اين دستورام ادمين بودن را چك كنم.

Text1.Text = Trim(Text1.Text)
Text2.Text = Val(Text2.Text)

If Text1 <> "" And Text2.Text <> "" Then
str1 = Text1.Text
str1 = "username ='" & str1 & "'"
Adodc1.Recordset.Find str1

If Adodc1.Recordset.EOF = True Then
MsgBox "äÇã ˜ÇÑÈÑí ÇÔÊÈÇå ÇÓÊ", vbOKOnly + 32, "User Name Error"
Exit Sub
End If
str2 = Text2.Text
str2 = "password ='" & str2 & "'"
Adodc1.Recordset.Find str2

If Adodc1.Recordset.EOF = True Then
MsgBox "ÓæÑÏ ˜ÇÑÈÑí ÇÔÊÈÇå ÇÓÊ", vbOKOnly + 32, "Password Error"
Else
Form4.Show
Form2.Hide
Text1.Text = Empty
Text2.Text = Empty

End If
Else
MsgBox "Fill The User Name And password", vbOKOnly + vbInformation, "Error"
End If

[lord_viper]

شما تو تیبلی که برای login ساختی بجز usernameو password یه ستون هم به اسم سطح دسترسی بزار که با عدد مشخص بشه همونجا هم چک کن که عدد چنده و بسته به غددها همون اول یه سری باتن ها و فورمها رو disablr کن یا موقع اجرای بخشهای خاص چک کن این عدد چنده اگه دسترسی داشت اون دستورات اعمال بشن اگه نه که یه پیغام که شما برای انجام این کار مجوز ندارید نشون بده
موفق باشید