Visual Basic - Recordset

Hola a todos, por favor echarme una mano!!

Tengo un recordset que he llenado a partir de una consulta, os paso un trozo del codigo para que lo entendais.Lo que me pasa es que cuando hace la llamada a la función me sale un error de "Type Mismatch". Estoy agobiado porque no doy con ello.
Gracias

sql="SELECT CAMPO1,CAMPO2 FROM TABLA WHERE CAMPO1 LIKE '%p%'"

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = Conexion
cmd.CommandText = sql

Set recordset = New ADODB.recordset
recordset.CursorType = 3
recordset.Open sql, Conexion, , , adCmdText
cmd.Execute

If recordset.EOF = True Then

MsgBox "No existen coincidencias", vbInformation, "Error"

Else

Rellena_grid (recordset)

End If

Function Rellena_grid(recordset as ADODB.Recordset)
Do While recordset.EOF = False
grid_resultados.Rows = grid_resultados.Row + 2
grid_resultados.Col = 0
grid_resultados.Row = i
grid_resultados.Text = "" & recordset!Campo1
grid_resultados.Col = 1
grid_resultados.Text = "" & recordset!Campo2

recordset.MoveNext
i = i + 1
Loop
End function

Hola...Tienes que verificar si el "campo1" es del mismo formato que "p".