Perchè non riesco a far funzionare questo script : ???

codice:
Do While Not objApriFile.AtEndofStream
   sTesto = objApriFile.ReadLine
   response.write "
 " & sTesto & "
"
   
   MioArray = Split (sTesto, " ") 
   
FOR i=0 to UBound(strArray)-1
strVar = strArray(i)
Response.Write "elemento " & i & "...: " & strVar & "
"
NEXT
   
   SQL = " INSERT INTO TBLL ( CAMPODITESTO ) VALUES ('"& strVar(0) &"' )"
   Set RS = Conn.Execute(SQL)
   
Loop
Perchè risponde con:
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'strVar'
sulla linea della SQL ???