Sql

Aquí te paso un código que tengo de conexión a un mysql
con otra función para realizar un select a la db.
para hacer el select por ejemplo tendrias que hacer
Dim sql as String
Dim v_nom as String
v_nom="lasie"
sql = "select * from perro where nom='" & v_nom & "'"
'armaria un: select * from perro where nom='lasie'
'ejecutas el select con la funcion.
Call SQLSelect(sql)
Public Function Conectar() As Boolean
On Error GoTo err
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=REQ;UID=mysql; PWD=; OPTION=16427"
conn.CursorLocation = adUseClient
conn.Open
Conectar = True
Exit Function
err:
Conectar = False
End Function
Public Function SQLSelect(sql As String) As Recordset
Dim rs As New ADODB.Recordset
On Error GoTo err
rs.Open sql, conn
Set SQLSelect = rs
Exit Function
err:
Set SQLSelect = Nothing
End Function
Espero que te sirva
Éxitos
Kaos