主题：[求助]系统列问题

系统列，要额外才能获取，如

Dim conn As New data.Oledb.OleDbConnection(Connections("test").ConnectionString)
Dim da As New data.Oledb.OleDbDataAdapter("Select * F rom [test] where 1=2", conn)
conn.open()
Dim ds As Data.DataSet = New Data.DataSet()
da.Fill(ds)
msgbox(ds.Tables(0).Columns.count)
For Each c As object In ds.Tables(0).Columns
    output.show(c.tostring)
Next
conn.Close