[RESOLVED] Runtime Error 424

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

Code:

---

      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.

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

Code:

---

      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.

Quote:

---

Originally Posted by RobDog888

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

---

How about this part of my post?

No, I don't think so.

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

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

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". ;)