Visual Basic - ADO y MyODBC

Hola, tengo un problemilla. No me deja declarar variables ADO y eso que he instalado y referenciado la version 2.8. Aparte me gustaria saber si hay posibilidad de enlazar el recordset que salga del siguiente codigo a un data y esta a una dbgrid o se pueden mostrar los datos de otra forma??? Gracias. Dejo el codigo para ver si va bien ;) Un saludo:

Private Sub envio_Click()
If (dni.Text = "") And (prov.Text = "" Or pol.Text = "" Or mun.Text = "" Or parc.Text = "") Then
c = MsgBox("Alguno de los campos esta vacio o no es valido", , "Consulta incompleta")
ElseIf (dni.Text <> "") Then
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=127.0.0.1;" _
& "DATABASE=pintale;" _
& "UID=root;PWD=; OPTION=3"
conn.Open
Debug.Print "Conectado a base de datos"
ElseIf (prov.Text <> "" And mun.Text <> "" And pol.Text <> "" And parc.Text <> "") Then
Data1.RecordSource = "SELECT titulo,volumen,autor,año,editorial,materia,ubicacion,propiedad FROM books WHERE autor LIKE '*" & autor.Text & "*' ORDER BY autor ASC"
Data1.Refresh
End If
End Sub
Private Sub reset_Click()
dni.Text = ""
prov.Text = ""
pol.Text = ""
mun.Text = ""
parc.Text = ""
End Sub