ايران ويج

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