¿Por qué este Script no me funciona como debe ser?

RS.CURSORLOCATION=3
"Carlossdp" wrote in message
news:
Buen día a todos.

Estoy diseñando un archivo txt para convertirlo a Script. El archivo
debería ser sencillo. Sólo debe abrir un Recordset que está en una
base de datos Access 2003 y luego arrojar en un Msgbox la cantidad de
registros de dicho Rs. Pero el problema es que el Msgbox me arroja un
"-1" en la cantidad. No se que me falta. En Visual Basic, esto se
corregía modificando la propiedad de la conexión
"CursorLocation=AdUseClient" pero acá no se que esté pasando. El
código que uso en el Script es este:


Dim Cnn
Dim Rs

Set Cnn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")

Cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data
Source=MS Access Database;Initial Catalog=C:\Duplicados.mdb"
Rs.open "RecordsetX",Cnn
MsgBox Rs.RecordCount

Rs.Close
cnn.Close
Set Cnn = Nothing
Set Rs = Nothing


Gracias por su ayuda.