Visual Basic - ERROR FROM EN TIEMPO DE EJECUCION

Saludos...

tengo un boton que hace una consulta de un tabla utilizando un texbox y un dbgrid, cuando intento correr el programa al hacer clic en el boton aparece el sigte error : RUN-TIME ERROR 2147217900 , METHOD REFRESH OF OBJECT IADODC FAILED..

Marcos...

tu consulta esta mala

mas abajo el codigo para que me digas donde esta el error....

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(irecords) & "Se encontraron los registros"
End Sub

elimina el espacio antes de select
sqlwhat = "SELECT * FROM CONTACTOS "
elimina los espacios entre las comillas simples
sqlwhere = " where Nombre ='" & txtnombre & "' "

y a ver que pasa

MousePointer = vbHourglass
Dim sqlstring As String, sqlwhat As String, sqlwhere As String
Dim bnombre As Boolean
Dim irecords As Integer
sqlwhat = " SELECT * FROM medicos "

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

ESTO ASI PORQUE TU CONEXION A LA BD DEBE SER FIJA

ESPERO TE SIRVA.
SALUDOS,
DECOY