Recordcount me devuelve un -1 :(

[Sugey]

Oigan, por un momento olvide lo de el recordcount

Pero ahora, miren les explico brevemente, tengo dos bases de datos una es citadel propia de un software llamado labview, y la otra es sql server, necesito consultar citadel e insertar en sql server, pero citadel tiene algunas limitantes, entonces primero hago una consulta para saber nombres de variables, despues en un ciclo por cada variable tengo ke consultar su valor y su fecha(loggingTime)
creo que ya tengo mi programa hecho, ya mande imprimir mis querys y estan correctos, pero ocurre algo raro, que cuando lo ejecuto me manda un error, algo de ke esta mal la sintaxis algo d un parentesis ") "

Pero no se que pueda ser, no entiendo, ayuda por favor......



dim myConn
dim myRecordset
Const adCmdText = &H0001
Const adOpenStatic = 3
'Origen CITADEL
set myConn = CreateObject("ADODB.Connection")
set myRecordset = CreateObject("ADODB.Recordset")
set myRecordset2 = CreateObject("ADODB.Recordset")
myConn.Open "DSN=C__sarp_simulado_BDsimulado"
mySQLCmdText= "SELECT aliasname FROM NICIT.aliases"'ORDER BY (aliasname) DESC"
myRecordset.Open mySQLCmdText, myConn,adOpenStatic,adCmdText

' Destino SQL SERVER
dim id_senal, fecha, valor
set myDestConn = CreateObject("ADODB.Connection")
myDestConn.Open = "Provider=SQLOLEDB.1;Data Source=(local);Initial Catalog=SMRP;user id ='sa';password='sa'"
registros_mostrados = 0
cont=0



While (NOT myRecordset.EOF)
registros_mostrados = registros_mostrados +1
parametro=myRecordset.Fields.Item("AliasName").Val ue
mySQLCmdText2 = "SELECT loggingTime," & Chr(34) &parametro& Chr(34) & " from rawdata WHERE LoggingTime BETWEEN "&Chr(39)&"2007-07-05 21:00:00" &Chr(39)&" AND "&Chr(39)&"2007-07-07 22:00:00"&Chr(39)
mySQLCmdText2 = "SELECT loggingTime," & Chr(34) &parametro& Chr(34) & " from rawdata "
response.write(mySQLCmdText2)&"<br>"
myRecordset2.Open mySQLCmdText2, myConn,adOpenStatic,adCmdText


While (NOT myRecordset2.EOF)
'pos=Instr(8, parametro, "/")
id_senal=(Mid(parametro,pos+1,8))
valor=myRecordset2.Fields.Item(parametro).Value
'fecha=myRecordset2.Fields.Item("loggingTime").Val ue
fecha=(Mid(fecha,1,19))

SELECT CASE (Mid(id_senal,1,1))
' CASE ("A"):
' myDestSQL="INSERT INTO valores_analogicos_Vb VALUES ("&Chr(39)& id_senal& Chr(39) &","&Chr(39)&fecha&Chr(39)&","&valor&")"
response.write(myDestSQL)&"<br>"

myDestConn.Execute myDestSQL
myDestSQL=" "

CASE ("L"):
' RESPONSE.Write("ES BINARIA")

CASE ("F"):
RESPONSE.Write("ES FALLA")

END SELECT
response.write(valor&"<br>")
response.write(fecha&vbCrLf &"<br>")
myRecordset2.MoveNext()
wend
myRecordset2.close
set myRecordset2=nothing
myRecordset.MoveNext()
wend

Main = DTSTaskExecResult_Failure
If myConn.errors.count = 0 Then
Response.Write "Connected OK"
Response.Write registros_mostrados
End If



Me marca error en la linea ke ejecuta el insert, pero hice un ejemplo por separado dond solo inserto un registro y si lo hace bien, no se ke pueda pasar, ojala puedan ayudarme.-....