Conexion ODBC a Excel

[Murallitz]

Buenos dias, tengo este problema, tengo data en un oracle que quiero verla en un excel.
Ya he creado mi ODBC (Con_Oracle).
en el excel quiero que sea mas dinamico y creo unos campos para poder manejar el query (fecha desde ya hasta)
El problema es cuando consulto, salta justo en la conexion al oracle.
"Error General de ODBC"

Este es la parte del codigo que se conecta.
Espero me puedan ayudar
Saludos

Código vb:

OracleString = "Select  a.cod_codigo as Tienda, f.fch_fecha as FECHA,  t.MTO_TOT_VTA as VentaBruta from tb_liq_vta_dia t " & _
                            "inner join tb_gen_almacen a  on t.ID_ALMACEN=a.ID_ALMACEN " & _
                            "inner join tb_inv_fecha_operacion f on  t.ID_FECHA_OPER =f.ID_FECHA_OPER " & _
                            "where a.ID_MArca= " & vCompania & " and f.fch_fecha  between  " & FDesde & " and " & FHasta & " " & _
                            "order by a.cod_codigo asc"
                            
 
           
           
           ConnString = "ODBC;DSN=Con_Oracle;UID=inv;PWD=159357;Database=CARINV"
           
            With Me.QueryTables.Add(Connection:=ConnString, Destination:=MiRango, Sql:=OracleString)
                .Refresh
            End With