怎样使用一个查询获得数据库对象的名称

函数:获取access库
'如何用ado实现
'项目->引用-> Microsoft ActiveX数据对象2.x(版本号)
'-
Private Sub Form _ Load()
Dim adoCN As New ADODB。“Connection”将数据库的连接
dimstrnnas new adodb . recordset
dimrstschema定义为new adodb . recordset
Dim I As Integer
str 1 = " Provider = Microsoft。Jet . OLEDB.4.0数据源=c:\Northwind。MDBpersist Security Info = False "
adoCN。open str 1

Set rst schema = adoCN。open schema(adSchemaTables)

Do Until rst schema。EOF
If rstSchema！TABLE _ TYPE = " TABLE " Then
out = out & "表名:" & _
rstSchema！TABLE_NAME & vbCr & _
"表类型:" & rstSchema！TABLE _ TYPE & vbCr
I = I+1
End If
rst schema。MoveNext
Loop
MsgBox I
rst schema。关闭

adoCN。关闭
调试。打印输出
结束Sub