试了你的代码,字段名称和数据类型都取出来了,你自己改称下面的程序试试?![]  [CTXSYS]  [CTX_INDEXES]  [IDX_NAME]  []  []  [3]  [0]  []  [8]  [0]  [129]  []  [30]  [30]  []  []  []  []  []  []  []  []  []  []  []  []  []  
    While Not rsOra.EOF
        For i = 0 To rsOra.Fields.Count - 1
            FdID = FdID & "[" & rsOra.Fields(i) & "]" & Space(2)
        Next
        Debug.Print FdID
        FdID = ""
        rsOra.MoveNext
    Wend