Visual Basic - VBS select SQL

Hola,
Estoy intentando recuperar un valor de un campo de una tabla de SQL para utilizarlo dentro de un programa.
Para ello intento utilizar un código así (con sentencias UPDATE sí me funciona correctamente):

Set Conexion = CreateObject("ADODB.Connection")
Set miRs = CreateObject("ADODB.RecordSet")
busSQL = "SELECT Actualiz FROM TABLA WHERE (AAA = 'BBBB') AND (CCC = 'AA')" & _
" AND (DDD = '" & variabledelprograma & "')" & _
" AND (EEE = '" & variabledelprograma & "') AND (FFF = '" & variabledelprograma & "')"
Conexion.Open "DSN=DIMO_SQL;UID=ABCDEFGH;PWD=12345;"
busqueda = miRs.Open busSQL, Conexion
msgbox busqueda
Conexion.Close

El problema es que no me deja hacer el "busqueda=" para obtener en una variable el valor del campo, entiendo que porque lo estoy haciendo mal y no se puede hacer así, pero no se cómo hacerlo.
¿Puede hecharme una mano alguien? Gracias por adelantado.

No estás tratando de mostrar u obtener un campo, sino TODA la consulta (el recordset). Debería ser así:
msgbox busqueda.Fields(0)

Gracias Ivan, añadiré el Fields, pero el programa me da error en la línea...
busqueda = miRs.Open busSQL, Conexion
...me dice que se esperaba fin de instrucción ¿¿??

No uses "busqueda", sino tu recordset:
miRs.Open busSQL, Conexion, adOpenDynamic, adLockOptimistic
msgbox miRs.Fields(0)

De esta manera ya no me da error...

Conexion.Open "DSN=DIMO_SQL;UID=aaaaaa;PWD=bbbbbb;"
miRs.Open busSQL, Conexion
act = miRs.Fields("Actualiz")
Conexion.Close
msgbox act

por fiiiinnnn.
Gracias!.