update excel via query., no jala

[anfiguero]

por alguna razon estoy haciendio mal el update he probado de varias maneras., a ver si alguien me puede ayudar.
saludos


file = "comments " & newpath & ".xls"
path = "D:\Cognos\SIE\Import Comments\Companys\"
path = path & newpath & "\"
path = path & file
Set ConexionBD = Server.CreateObject("ADODB.Connection")C onexionBD.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path
Set rsVac = Server.CreateObject("ADODB.Recordset")
if actualizar = 1 then
linea1=""
linea2=""
linea1 = request.form("msg")
linea2= request.form("msg2")
rsVac.Open "Select * From Comments where Reportname = '"&report&"' " , ConexionBD,3,3
'rsvac.movefirst
'rsvac("Comments") = linea1
'rsvac.update
'rsvac.movenext
'rsvac("comments") = linea2
'rsvac.update

rsVAc.open "UPDATE Comments SET Comments = '"&linea1&"', WHERE reportname = '"&report&"' and Linea = 1"
rsVAc.open "UPDATE Comments SET Comments = '"&linea2&"', WHERE reportname = '"&report&"' and Linea = 2"
response.redirect("bravo")
' rsvac.close
'Set rsVac = Nothing
'ConexionBD.Close
'Set ConexionBD = Nothing
end if
end if

[urjose]

Bueno y cual es el error?

<center>
<p><a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/foros/urjose.gif></a></p>
<p><font size=2 face=Arial color=#000066>Pronto
tus conocimientos tendr&aacute;n un $[/CODE]</p>
</center>