RecordCount de un recordset me da -1 por que?

[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