adodoc

[amene]

[/align]با سلام من یه فرم دار كه میخواهم كاربر با دادن username ,password به فرم بعدی دسترسی داشته باشه
هر كدی قرار میدم مشكلداره ممكنه كمكم كنید

Private Sub Command1_Click()

Dim Response As Integer
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Database Path;Persist Security Info=False"
.RecordSource = "SElECT * from Table1 where username = '" & Trim(Text1.Text) & "' AND password = '" & Trim(Text2.Text) & "'"
' Refresh


End With


if text1.text=usrename and text2.text=password then form 4.show
else exit sub
End If

مشكل اینجاست كه شرط if مشكل داره اما نمي دونم كجاش
End Sub

[Di Di]

If Text1 = UserName And Text2 = Password Then

Load Form4
Form4.Show

Else

Exit Sub

end IF