主题：如何遍历Access文中的所有表？

参考

Dim dlg As  new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    If Connections.Contains("test") Then Connections.Delete("test")
    Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False")
    For Each tn As String In Connections("test").GetTableNames
        Dim cmd As New SQLCommand
        Dim dt As DataTable
        cmd.ConnectionName = "test"
        cmd.CommandText = "SELECT * From {" & tn & "}"
        dt = cmd.ExecuteReader()
        For Each dr As DataRow In dt.DataRows
            Dim fdr As DataRow = DataTables(tn).Find("主键列名 = '" & dr("主键列名") & "'")
            If fdr Is Nothing Then fdr = DataTables("员工").AddNew()
            For Each dc As DataCol In dt.DataCols
                fdr(dc.name) = dr(dc.name)
            Next
        Next
    Next
End If