Visual Basic - CONTAR REG

AMIGOS: TENGO UNA BD EN ACCESS Y QUIERO QUE ME CUENTE CIERTOS REGISTROS Y PASAR EL RESULTADO A UN CAMPO DE LA MISMA BD, ASI LO ESTOY HACIENDO PERO NO ME SALE, PUEDEN AYUDARME Y DECIRME EN DONDE ESTA EL PROBLEMA:

Dim DBS As Database,RS As Recordset

Set DBS = DBEngine.OpenDatabase("C:\BD.MDB", False, False, "; PWD=JULIO")
Set RS = DBS.OpenRecordset("select count " & " ([CAMPO1]) as CAMPO2 from arribos")
---------
CAMPO 1 = CAMPO DE LA BD QUE QUIERO QUE CUENTE
CAMPO 2 = CAMPO DONDE QUIERO QUE DE EL RESULTADO

GRACIAS DE ANTEMANO

La query seria algo asi:

Insert into arribos (CAMPO2)
select count ([CAMPO1]) from arribos

y no necesitas abrir un recordset, vale con un execute