Recordcount me devuelve un -1 :(

[Sugey]

Hola amigos, tengo un pequeño problema llevo horas y horas, buscando una solucion, mi problema es que tengo un sencillo programa en el que me conecto a una base de datos de citadel, con odbc, la conexion esta hecha pero el recordcount me devuelve un -1 y no entiendo porque, ya busque al respecto e hize lo que sugieren pero se sigue quedando con -1. Ojala alguien pueda ayudarme, aqui esta el codigo.


dim myConn
dim myRecordset
Const adCmdText = &H0001
Const adOpenStatic = 3

set myConn = CreateObject("ADODB.Connection")
set myRecordset = CreateObject("ADODB.Recordset")

myConn.Open "DSN=C__sarp_simulado_BDsimulado"
mySQLCmdText = "SELECT aliasname FROM NICIT.aliases"
'myRecordset.CursorType=1
myRecordset.Open mySQLCmdText, myConn,adOpenStatic,adCmdText
set Flds = myRecordset.Fields

Response.Write( myRecordset.RecordCount & " encontrados.")
registros_mostrados = 0
While (NOT myRecordset.EOF)
registros_mostrados = registros_mostrados +1
response.Write(VbCrlf)
parametro=myRecordset.Fields.Item("AliasName").Val ue
response.Write(parametro)
mySQLCmdText2 = "SELECT loggingTime, &parametro from rawdata"
response.Write(mySQLCmdText2)
myRecordset.MoveNext()
wend


If myRecordset.RecordCount < 1 then
response.write "no hay registros"
' Main = DTSTaskExecResult_Failure
Else
response.write "si encontro registros"
' Main = DTSTaskExecResult_SuccessMain = DTSTaskExecResult_Success
End If
If myConn.errors.count = 0 Then

Response.Write "Connected OK"
Response.Write registros_mostrados

End If

Me aparece, connected OK, y me aparece ke no hay registros, mientras en while, si se estan impriendo, ayuda con el recordcount please