VB6 / MySQL Help

Hello there :wave:
I use an ADODB connection Through MySQL 5.0; the provider is ODBC. My problem is setting a SQL querie to a variable (vb6). For example, here is my vb/SQL querie.

VB Code:

rs.Open "SELECT username, password FROM tehtable WHERE username='" & Text1.Text & "' AND password ='" & Text2.Text & "'", conn

i want to do

VB Code:

return = rs.Open("SELECT username, password FROM tehtable WHERE username='" & Text1.Text & "' AND password ='" & Text2.Text & "'", conn)

but that returns errors as it says it expects a function on ".Open"
if any of you could help that would be great :)

The open method does a lot more than return a value - it populates an entire recordset (which can contain multiple rows/columns of data, and all associated meta-data). Even in your example, there are two fields being returned by the SQL, so which value would it give (if it was vaid)?

After running the (first) rs.Open line you need to work with the rs object, like this:

VB Code:

If rs.EOF Then
  Msgbox "No data found"
Else
  MsgBox "Username: " & rs("username").Value
  myVar = rs("password").Value
End If

Note that it is possible to get multiple rows of data returned, so you need to be able to loop thru them, which you can do like this:

VB Code:

Else
  Do While Not rs.EOF
    MsgBox "Username: " & rs("username").Value
    myVar = rs("password").Value
    rs.MoveNext
  Loop
End If