Instead of writing
Rs.Open "INSERT INTO venta VALUES ('" & VarFolio & " ','" & Combo1.ItemData(Combo1.ListIndex) & "','" & Menu.IdUsuario & "','" & idpacaux & "'" _
& ",'0','" & total & "','" & Format(Now, "yyyy-mm-dd hh:mm:ss") & "','" & VarSepagaV & "','" & VarCambioV & "','" & VarTpvV & "'" _...