Argument Not Optional error connecting to Access database

Question

I have this simple coding for a login form in vb6 with connection to an Access database, but every time I compile this code, it shows an error:

Argument not optional

and highlights the Private Sub Loginbtn_Click() and txtUsrName.

Private Sub Command1_Click()
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
    & "Data Source=E:\Ash\New folder (2)\login form.mdb;" _
    & "Persist Security Info=False"

    conn.Open

    Dim rs As New ADODB.Recordset

    rs.Open "SELECT * FROM table1 WHERE username = '" & txtUsrName & "'", conn, adOpenStatic, adLockReadOnly
    If rs.RecordCount <> 0 Then
        If txtPwd = rs!Password Then

            MsgBox "Username and Password Succesful!"
            'Remove msgbox above then call a form to be load if login is succesful!
            Call MDIForm1.Show
        Else
            MsgBox "Invalid Password, try again!", , "Login"
        End If
    Else
        MsgBox "Invalid Login, try again!", , "Login"

    End If
rs.Close
Set rs = Nothing
End Sub

is that ` in front of "Private Sub Loginbtn_Click()" from your code, or just a mistake when copying the code in here ? — Hrqls, May 11 '15 at 09:24
@shA.t , ohhh dearr!! you solved my problem!!! i was such a fool, i didnt notice that it has two commas :p thank you so much! and thank you too @Hrqls! :) — Lakshmi, May 12 '15 at 18:53

score 0 · Answer 1 · answered May 13 '15 at 02:42

0

I think you need just to change your MsgBox commands:

MsgBox "Invalid Password, try again!", , "Login"

to

MsgBox "Invalid Password, try again!", "Login"

answered May 13 '15 at 02:42

shA.t

16,580
5
54
111

Argument Not Optional error connecting to Access database

1 Answers1