Visual Basic - ¿CÓMO HACER CONSULTAS SQL EN ADO?

Estando en Visual Basic 6 (RDO), acostumbraba estas consultas:
'Conteo de registros:
Set Consulta = conec.OpenResultset("Select count(*) from MiTabla", rdOpenDynamic, rdConcurRowVer)

'Consulta los registros
Set Consulta = conec.OpenResultset("Select * from MiTabla", rdOpenDynamic, rdConcurRowVer)

If Consulta(0) > 0 Then
' La tabla no esta vacia
Consulta.Movefirst
End If

Quisiera migrarlas a ADO y no sé ¿cómo?.

Para que esto funciones tienes que añadir en: proyecto-->Referencias-->seleccionar microsoft activeX data objects 2.1 library
Luego declaras la variables de tipo recordset y la abres de esta forma:

dim rs as new Recodset
rs.Open \"SENTENCIA SQL\", \"Provider = microsoft.jet.oledb.4.0; data source= DIRECCION DE LA BASE DE DATOS Y NOMBRE.MDB\", adOpenDynamic, adLockOptimistic, adCmdText

Espero que te sirva
Un saludo

Gracias Isa, lo voy a intentar, eres muy amable.