Visual Basic - ERROR FROM EN TIEMPO DE EJECUCION

Saludos....
debajo el condigo de mi boton, no se si sirve decir que tengo el componente ADODC para poder concatenar la tabla a un dtgrid, el error que da es METHOD REFRESH OF OBJECT IADODC FAILED, si quito el REFRESH corre bien pero no busca el registro
desde ya Gracias...

Marcos..

Private Sub cmdQuery_Click()
MousePointer = vbHourglass
Dim sqlstring As String, sqlwhat As String, sqlwhere As String
Dim bnombre As Boolean
Dim irecords As Integer
sqlwhat = " SELECT * FROM CONTACTOS "

bnombre = IIf(txtnombre <> "", True, False)
If bnombre Then
sqlwhere = " where Nombre = '" & txtnombre & " ' "
End If
sqlstring = sqlwhat & sqlwhere
dtaquery.RecordSource = sqlstring
dtaquery.Refresh
irecords = dtaquery.Recordset.RecordCount
dbquerygrid.Caption = CStr(" Se encontraron los registros")
dbquerygrid.Refresh
MousePointer = vbDefault
End Sub