Аргумента Не Дополнительно ошибка подключения доступа к базам данным

Question

У меня есть эта простая кодировка для формы входа в VB6 с подключением к базе данных Access, но каждый раз, когда я скомпилировать этот код, он выдает ошибку:

Argument not optional

и подчеркивается Private Sub Loginbtn_Click() и 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 

Answer 1

Я думаю, что нужно просто изменить MsgBox команды:

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

в

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