[RESOLVED] Runtime Error 424

[tipsyhitman]

I'm making a login program to get the usernames and passwords from a mysql database but i get Runtime Error 424.

      Private Sub cmdLogin_Click()

      Dim SQL As String
   
      Dim conn As ADODB.Connection

      Set conn = New ADODB.Connection
   
      Dim rs As ADODB.Recordset
   
      Set rs = New ADODB.Recordset
   
      conn.CursorLocation = adUseClient

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=ip;" & "DATABASE=dbname;" & "UID=username;" & "PWD=password;" & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
      conn.Open conn.ConnectionString
  
      SQL = "SELECT * FROM authorized  WHERE username = '" & txtUsername.Text & "' AND password = '" & txtPassword.Text & "'"
    
      rs.Open SQL, conn, adOpenStatic, adLockReadOnly

The yellow line is what Visual Basic said is causing the problem.

[RobDog888]

Welcome to the Forums

Is txtUsername.Text and txtPassword.Text exist on your form and spelled correctly?

Ps, that yellow is soo hard to read

[tipsyhitman]

      Private Sub cmdLogin_Click()

      Dim SQL As String
   
      Dim conn As ADODB.Connection

      Set conn = New ADODB.Connection
             
      Dim rs As ADODB.Recordset
   
      Set rs = New ADODB.Recordset
   
      conn.CursorLocation = adUseClient
  
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=ip;" & "DATABASE=dbname;" & "UID=username;" & "PWD=password;" & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
         
      conn.Open conn.ConnectionString
  
      SQL = "SELECT * FROM authorized  WHERE username = '" & txtUsername.Text & "' AND password = '" & txtPassword.Text & "'"

      rs.Open SQL, conn, adOpenStatic, adLockReadOnly

      If rs.EOF Then
  
        MsgBox "Invalid Login"
  
      Else
  
        MsgBox "Logged in as " & rs!UserName
  
      End If
  
      rs.Close
  
      Set rs = Nothing
  
      conn.Close
  
      Set conn = Nothing
  
      End Sub

Ok thats the code that im having problems with.

[RobDog888]

Is txtUsername.Text and txtPassword.Text exist on your form and spelled correctly?

How about this part of my post?

[tipsyhitman]

No, I don't think so.

[RobDog888]

Well that is where the problem is as it cant resolve the "objects" to anything on your form.

[tipsyhitman]

Thanks i fixed it, i had txt.User instead of txt.username.

[RobDog888]

Cool, glad its working now.

Ps, as a newer member I will tell you that its easier for members to know your thread has been solved by you going to the Thread Tools menu and selecting "Mark Thread as Resolved".