Busqueda de registros ADODB y MySQL

[GeoAvila]

Código:

Private Sub OpenServer()
constr = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=" & db_name & ";SERVER=" & db_server & ";UID=" & db_user & ";PASSWORD=" & db_pass & ";PORT=" & db_port & ";OPTION=16387;STMT=;" & Chr$(34)
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open constr
End Sub

y al recordset quitale esto

rs.CursorLocation = adUseClient

nos vemo... espero te sirva de algo..