Visual Basic - Error con Movefirst

Amigos, estoy programando en Visual 6.0 con conección Ado a una bd en access, así de simple.

Tengo el siguiente caso:

Realizo una consulta y el recordset lo incorporo a un datagrid.

Problema:

Cuando la consulta no entrega ningún valor porque simplemente no se encontró nada, crea un error con el comando "NombreRecordset.movefirst" (obio, si el recordset esta vacío, pero como lo soluciono)

Este comando debe estar ahí, ya que necesito recorrer desde el comienzo el recordset para trasladarla al Datagrid, en el caso de que la consulta entregue resultados.

Alguna idea como solucionar esto??
Gracias ^^!

Pues comprobando con la propiedad RecordCount del recorset si devuelve algún registro.

Debes escribir lo siguiente:
if not (NombreRecordset.EOF) then
NombreRecordset.MoveFirst
else
msgbox("No hay registro en la tabla")
EndIf