Openschema函数的问题

[Gpooh]

我在VB6.0里面读取数据库中表中字段信息时，使用了以下语句：
adoconnection.OpenSchema(ADODB.SchemaEnum.adSchemaColumns, Array(empty, empty, empty, tablename))
但是在VB.net中，array和empty不再被支持，请指点，在VB.net中如何重写这段话？

[vikingleo]

可以用判断来实现:
myconn2.Open(str2)
reordset = myconn2.OpenSchema(SchemaEnum.adSchemaTables)
Do Until reordset.EOF
If reordset("table_type").Value = "TABLE" Then
ComboBox1.Items.Add(reordset("table_name").Value)
End If
reordset.MoveNext()
Loop
reordset.Close()
myconn2.Close()

[Montaque]

.NET中用Ado.net
代码:

Dim sConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;"
'Use the user-selected database file as the Data Source value.
Dim OpenFileDialog1 As New OpenFileDialog() '浏览mdb的位置

If OpenFileDialog1.ShowDialog = DialogResult.OK Then
sConStr &= "Data Source=" & OpenFileDialog1.FileName & ";"
Dim conn As New System.Data.OleDb.OleDbConnection(sConStr)
conn.Open()

Dim dt As System.Data.DataTable = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Columns, _
New Object() {Nothing, Nothing, "table1"})
Dim i As Integer
For i = 0 To dt.Rows.Count - 1
Debug.WriteLine(dt.Rows(i).Item("Column_name"))
Next
End If

[Gpooh]

Thanks