Ayuda con conexion a sql server

[rezocrew]

hola amigos del foro recurro a uds por que tengo un problema y es el sgte, resulta que estoy tratando de subir los datos que estan en una planilla excel a una tabla que esta en una base de datos en sql server pero me arroja un error de conexion y no se por que

el codigo es el sgte

<%
Path=Server.MapPath("mayoviajes_filtrado.xls")
Set ConexionBD = Server.CreateObject("ADODB.Connection")
ConexionBD.Open "DRIVER={Microsoft Excel DRIVER (*.xls)};DBQ=" & Path
Set rsVac = Server.CreateObject("ADODB.Recordset")
rsVac.Open "Select * From [HOJA1$] ", ConexionBD

Set ConexionDBSql = Server.CreateObject("ADODB.Connection")
ConexionDBSql.Open "DRIVER={SQL
Server};Server=CPUATH00646;Database=Prueba;UID=sa; PWD="atava6og"
Set sql = Server.CreateObject("ADODB.command")
sql.ActiveConnection = ConexionDBSql

rsVac.MoveFirst
Do While Not rsVac.EOF

sql.CommandText = "INSERT INTO Viaje VALUES ('" & Viaje_Tabla2_Nic & "','" &
Viaje_Fecha_Inicio & "','" & Viaje_Fecha_Final & "','"& Viaje_Pais_Destino "')"
sql.execute

rsVac.MoveNext
Loop
ConexionBD.Close
ConexionDBSql.Close
Set ConexionBD = Nothing
Set ConexionDBSql =Nothing



%>


el error que me tira es el sgte

Error de compilación de Microsoft VBScript (0x800A0409)
Constante de cadena sin terminar

y es en la sgte linea del codigo

ConexionDBSql.Open "DRIVER={SQL
Server};Server=CPUATH00646;Database=Prueba;UID=sa; PWD="atava6og"

mi servidor se llama CPUATH00646

mi base de datos Prueba y la tabla donde quiero insertar los datos se llama Viaje

y mi usuario es el sa y mi password es atava6og por favor ayudenme de antemano muchas gracias