Hola, a ver si esto te ayuda y es lo que necesitas :
SacarDatosLinea()
sql = "INSERT INTO Registro (Ip,NbUsuario,Fecha,HoraInicio,Pagina) VALUES ( "
sql = sql & vlinea(0) & ","
sql = sql & vlinea(1) & ","
sql = sql & vlinea(2) & ","
sql = sql & vlinea(3) & ","
sql = sql & vlinea(4) & " )"
ob_conn.Execute(sql)
ob_conn.Close
En SacarDatosLinea no olvides reemplazar las comillas simples por dos comillas simples con Replace(cadena,"'","''") para no confundir la cadena sql final.
Saludos !
