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.
