Selecting from a mysql

ok, i have this code so far:

VB Code:

Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim fld As ADODB.Field
  Dim sql As String
 
  'connect to MySQL server using MySQL ODBC 3.51 Driver
  Set conn = New ADODB.Connection
  conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=blah; DATABASE=blah; UID=blah; PWD=blah; OPTION=3"
 
  conn.Open
  
  Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseServer
  
  conn.Execute "SELECT name,ip FROM site_online WHERE name = '" & conlist.Text & "'"

Most tutorials show me how to loop the results. But i will get only one result. How do i get that result?

Code:

---

    Set objRS = New ADODB.Recordset
    objRS.CursorLocation = adUseServer
 
    objConn.Execute "SELECT name,ip FROM site_online WHERE name = '" & conlist.Text & "

    While Not objRS.EOF

        strName = objRS.Fields("name")
        strIP = objRS.Fields("ip")

        objRS.MoveNext '-Moves to next record
    Wend

  '-Make sure you remember to cleanup after yourself!
  objConn.Close
  Set objRS = Nothing
  Set objConn = Nothing

---