o Ponteiro do ADO não funciona como o do DAO, então se vc precisar consultar a quantidade de campos de uma Tabela vc deve fazer:
strPesquisa = "select Count(*)as registros from sistema where idSistema=1"
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = Cn
Rs.CursorLocation = adUseClient
Rs.Open strPesquisa, , adOpenKeyset, adLockOptimistic
Msgbox rs!registros
___
c vc usar apenas
Set rs = cn.Execute(sql)
vc vai abrir o cursor como Server e Locar como Pessimista, não permitindo acesso a outros usuarios.