VB5 og MySQL, connection problemmer

Hej Exp's

Jeg er i fuld gang med at lave en MySQL-klient i VB5. Men jeg kan ikke få den til at connecte. Tanken med programmet er at den skal kunne connecte til en hvilken som helst MySQL-server. Remote, Intranet eller på klientens computeren.

Her er koden:

    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    conn.Open = "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER=" & server & ";" _
            & "DATABASE=mysql;" _
            & "UID=" & user & ";" _
            & "PWD=" & pwd & ";"

    rs.Open "SELECT * FROM db"
   
    rs.Close
    Set rs = Nothing
   
    conn.Close
    Set conn = Nothing

Her er fejlen:

Run-time error '3709'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

Og her debuger VB5:

    rs.Open "SELECT * FROM db"

Hvad er der galt??

//themaster