|
|
On Error Resume Next ' Dim db As DAO.Database, s1$, s2$, s3$, rs As DAO.Recordset Dim a As String a = "" Const sQ1 = " SELECT [ID_] FROM WHERE = '" Const sQ2 = " ' AND = " s1 = lstLoginUser.Value s2 = plPassword.Value Set db = CurrentDb Set rs = db.OpenRecordset(sQ1 + s1 + sQ2 + s2) If rs(0) = Null Then MsgBox " " Exit Sub End If
