Busqueda de registros ADODB y MySQL

[vbx3m]

Esta es mi conexion

Código:

Private Sub Form_Activate()
db_name = "unoproseguros"
db_server = "localhost"
db_port = ""   
db_user = "root"
db_pass = ""
OpenServer
Rx = 0
End Sub

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.Open constr
End Sub