un saludo a todos, soy nuevo con el ADODB por que antes manejaba ADODC y pues las cosas se manejan distintas

asi que tengo este pequeño problemita.
Código:
Dim cn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
cn1.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Cybernet-Server\DB97.mdb"
rs1.Open "select * from activaciones where estado=1", cn1
If rs1.RecordCount = 0 Then
Exit Sub
End If
al ejecutar eso, necesito saber si hay registros con valor 1 en el campo estado, ya probe modificando ese valor en varios registros, y en cualquier caso rs1.RecordCount vale -1

, quisiera saber si estoy haciwendo algo mal o faltan argumentos para el RecordSet o en la Conexion.
de antemano Gracias