ايران ويج

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
ممنون میشم کمکم کنید