如何用VB6取得ACCESS中的所有表的名称

vb6能不能做到呀！请大侠门指点！

Option Explicit

Private Sub Command1_Click()
Dim conString As String
conString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=d:\mdb\Northwind.mdb"

Dim dbConn As New ADODB.Connection
dbConn.CursorLocation = adUseClient
Dim Rst As ADODB.Recordset
dbConn.Open conString

Set Rst = dbConn.OpenSchema(adSchemaTables)

Dim i As Long
For i = 0 To Rst.RecordCount - 1
If Rst.Fields("TABLE_TYPE") = "TABLE" Then
Print Rst.Fields("TABLE_NAME").Value
End If
Rst.MoveNext
Next

Rst.Close
dbConn.Close

Set dbConn = Nothing
End Sub

谢谢版主