butuh bantuan coding VB gann

[SinggahDapur]

agan-agan...tolong bantuin coding ane ini..

mau bikin listing login dengan adodc+acces..



nii listing ane...tapi gag jalan juga..



yg salah yg mana nii gan...pusinkk



Private Sub Command1_Click()

Adodc1.RecordSource = "select*from login"

If Text1 = Adodc1.Recordset.Fields("userid") And Text2 = Adodc1.Recordset.Fields("password") Then

menu.Show

Else

MsgBox "userid dan password tidak valid", vbOKOnly, "Peringatan"

End If

End Sub