在vb中连接Access数据库检测所有表

Option Explicit
Dim tabelName(50) As String
Dim i As Integer
Dim l As Integer

Private Sub Combo1_Click()
Text1 = Combo1
End Sub

Private Sub Command1_Click()
Dim fileN As String
CommonDialog1.ShowOpen
fileN = CommonDialog1.FileName
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & fileN & ";" _
& "Persist Security Info=False;" _
& "Jet OLEDB:Database Password=123"
Set rs = New ADODB.Recordset
Set rs = cn.OpenSchema(adSchemaTables, _
Array(Empty, Empty, Empty, "TABLE"))
While Not rs.EOF
tabelName(i) = rs!TABLE_NAME
i = i + 1
rs.MoveNext
Wend
rs.Close
cn.Close