Dim link1 As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim page As Integer
    Dim pubdatapath As String
    Sub opendatabase(datapath As String) '打開數據庫函數
    page = 1 '首次定義打開時的頁碼為1
    If link1.State = 1 Then '如果以連接過，則關閉，初始化下次事務
    link1.Close: list2.ListItems.Clear: list2.ColumnHeaders.Clear: c.Clear: list1.ListItems.Clear
    End If
    link1.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=" & datapath
    link1.Open
    pubdatapath = datapath
    Set biaoming = link1.OpenSchema(adSchemaColumns) '創(chuàng)建數據庫記錄集
    tablename = ""
    Do Until biaoming.EOF
    If biaoming("table_name") <> tablename Then '列出所有表
    tablename = biaoming("table_name")
    list1.ListItems.Add , , tablename
    End If
    biaoming.MoveNext
    Loop
    Set biaoming = Nothing
    menu1.Enabled = True
    list1_MouseUp 1, 0, 10, 10
    End Sub
    Private Sub Command1_Click() '打開數據庫
    d.DialogTitle = "打開一個數據庫文件進行瀏覽"
    d.InitDir = App.Path
    d.FileName = ""
    d.Filter = "Access數據庫(mdb后綴,推薦格式)　*.mdb"
    d.ShowOpen
    If d.FileName = "" Then Exit Sub
    opendatabase d.FileName
    End Sub