Set wrkODBC = CreateWorkspace(”ODBCWorkspace”, “system”, “”, dbUseODBC)
Set dbsOracle = wrkODBC.OpenConnection(”YOUR_DATABASE_SID”, dbDriverComplete, True, “ODBC;DSN=;UID=YOUR_USER_ID;PWD=YOUR_PASSWORD;”)

strpubmst = “Select * from YOUR_USER.YOUR_TABLE ”

‘ Set rstYourTable = dbsOracle.OpenRecordset(strpubmst, dbOpenDynaset, dbSQLPassThrough, dbOptimistic)
Set rstYourTable = dbsOracle.OpenRecordset(strpubmst, dbOpenDynaset)
MsgBox “sucess ” & rstYourTable.RecordCount
With rstYourTable
rw = 1
cl = 1
.MoveFirst
Do While Not rstYourTable.EOF
Cells(rw, cl).Value = !t1_code
Cells(rw, cl + 1).Value = !t1_name
Cells(rw, cl + 2).Value = !t1_short_name
Cells(rw, cl + 3).Value = !t1_type
Cells(rw, cl + 4).Value = !t1_no_prts
rw = rw + 1
.MoveNext
Loop
End With

close_connection:
dbsOracle.Close
wrkODBC.Close

End Sub