Show Oracle structure from Access

Question

Hello everybody,
Based on miscellaneous sources in newsgroups, I got an Access sub to show the structure of my Oracle base, i.e. the user's tables names and the fields names, sizes and types.
That runs fine, except if I have fields of type TIMESTAMP(6), in which case the field name is blank (in fact empty string), and the field type appears identical to that of the previous field.
Would anyone be able to explain me what is my error, and how to correct it ?
This is VBA code, ran from Access 2003 :
Public Sub ListeBaseOracle()
Dim wrkODBC As Workspace
Dim OracleDB As Database
Dim Tb As TableDef
Dim s As String
' strCon for documentary purposes - not used
strCon = "Driver={Microsoft ODBC for Oracle}; " & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=SERVER.FR)(PORT=1521))" & _
"(CONNECT_DATA=(SID = USER))); uid=USER;pwd=USER;"
Set OracleDB = DBEngine(0).OpenDatabase("", dbDriverComplete, False, "ODBC;UID=USER;PWD=USER;DSN=WILLNOTKNOW.NET")
Set gConnection = New ADODB.Connection
gConnection.Open sConnect
MousePointer = vbDefault
rs.Open " SELECT * FROM TAB", gConnection
If rs.EOF = False Then
   Do Until rs.EOF
     'RsTable.Open " SELECT * FROM " = rs!TNAME, gConnection
     RsTable.Open "SELECT * FROM " + rs!TNAME, gConnection
     Debug.Print rs![TNAME]
     For Each F In RsTable.Fields
           Debug.Print " " + F.Name,   F.Type
     Next
     RsTable.Close
     rs.MoveNext
   Loop
Else
   MsgBox "No table accessible to user"
   gConnection.Close
   End
End If
rs.Close
gConnection.Close
End Sub
Message was edited by:
Gloops

Answer 1

Well, there is some news about this.
I could get the field name using openShema, but I was unable to find a documentation about openShema.
I am still searching about the field type, as I get the same value in the DATA_TYPE field for a TIMESTAMP column as for a RAW one (and the TYPE_GUID is empty).
rs.Open " SELECT * FROM TAB", gConnection
If rs.EOF = False Then
    Do Until rs.EOF
        RsTable.Open "SELECT * FROM " + rs!TNAME, gConnection
        NomTab = rs!TNAME
        Set rsC = gConnection.OpenSchema(adSchemaColumns, Array(Empty, Empty, NomTab, Empty))
        Debug.Print rs![TNAME]
        While Not rsC.EOF
            Debug.Print "", rsC!COLUMN_NAME, rsC!Description, rsC!DATA_TYPE, rsC!TYPE_GUID
            rsC.MoveNext
        Wend
        RsTable.Close
        rs.MoveNext
    Loop
Else
    MsgBox "No data"
    gConnection.Close
    End
End If
rs.Close
gConnection.Close
Message was edited by:
Gloops