RecordCount de un recordset me da -1 por que?

[IGNIS]

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

[RootK]

Por lo que estoy viendo no has asignado tus objetos... (usar SET) intentalo de ésta forma:

Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset

SET cn1 = new ADODB.Connection
SET rs1 = new ADODB.Recordset
cn1.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Cybernet-Server\DB97.mdb"
cn1.Open

rs1.Open "select * from activaciones where estado=1", cn1
....
...

rs1.Close
cn1.Close

Salu2

[reniery]

el RecordCount te da uno por que en esa posición se encuentra el cursor en ese momento, lo que puedes hacer es darle la instricción:

rs1.MoveLast 'Mueve el cursor a la última posición.

If rs1.RecordCount = 0 Then
Exit Sub
End If

La otra opcion es:

If (rs1.EOF And rs1.BOF) Then
Exit Sub 'Si la tabla está Vacía se sale del procedimiento.
End If