ODBC - macro vb excel odbc oracle8

cuando trato de accesar la base de datos via odbc desde una macro hecha en macro-vb de excel para llenar una hoja, me arroja el siguiente error
run-time error 1004
general odbc error
a = " SELECT adm_tabla.CONTRACT_NO FROM adm_tabla"
connstr = "ODBC;DSN=con32;UID=yo;PWD=yomismo"
With ActiveSheet.QueryTables.Add(Connection:=connstr, Destination:=Range("A1"))
ActiveSheet.QueryTables(1).Sql = a
ActiveSheet.QueryTables(1).BackgroundQuery = False
ActiveSheet.QueryTables(1).Refresh
End With

- microsoft excel 2000
-odbc oracle drive

por favor, si alguien puede ayudarme!! gracias

yo estoy en las mismas.. tambien me tira errores esta cuestion

Muchas Gracias,

Las use aqui en Accenture - Brasil para conectar al banco Oracle de mi projecto (Petronect)

Andréa I. Barrios

Esto me funciona a mi, con SQL 2000, ojala te sirva

Dim qt As QueryTable
Dim Crea As Boolean
Dim xSQL As String

connstring = "ODBC;DSN=SQL_base de datos;UID=caguilera;PWD=afcca;Database=afiliación"

xSql =" Select * From Tabla"

If Hoja1.Range("ESTADO").Text = "" Then
With Hoja1.QueryTables.Add(Connection:=connstring, Destination:=Range("ESTADO"), Sql:=xSQL)
.Refresh
End With
Else
Hoja1.Range("ESTADO").QueryTable.Connection = connstring
Hoja1.Range("ESTADO").QueryTable.CommandText = xSQL
Hoja1.Range("ESTADO").QueryTable.Refresh
End If

Verifica que hayas instalado las herramientas para word y excel que vienen en el CD de oracle, luego desde excel prueba por <Datos/Obtener datos externos> que puedas leer infomacion tu base de datos oracle

fijate que la consulta no esté copiando un Nº negativo.. a mi me paso eso en Vb con excel

.:M@U:.