Dim DB As Database
Dim nome As String

Private Sub Command1_Click()

    'On Error GoTo Sem BD                'Caso haja erro ir para SemBD
    CommonDialog1.CancelError = True
    CommonDialog1.Filter = "Databases|*.mdb"    'Escolha dos tipos de arquivos a exibir
    CommonDialog1.ShowOpen          'Escolha do uso do componente CommonDialog
    
' Abrir o BD
    If CommonDialog1.FileName <> "" Then
        Set DB = OpenDatabase(CommonDialog1.FileName)
        nome = CommonDialog1.FileName
        Label1.Caption = CommonDialog1.FileName 'Atribuir ao rótulo o nome do arquivo aberto
    End If
' Limpar as ListBoxes
    'FldList.Clear               'Limpar a caixa de listas de campos
    List1.Clear               'Limpar a caixa de listas de tabelas
    
Dim tbl As TableDef         'Declaração da tabela tbl
Dim idx As Index            'Declaração do índice idx
Dim TName As String         'Declaração do string Tname para nome de tabela
' Processar cada tabela
    For Each tbl In DB.TableDefs        'Para cada uma das tabelas da coleção Tabledefs do BD
        ' Eliminar as tabelas de Sistema
        If Left(tbl.Name, 4) <> "MSys" And Left(tbl.Name, 4) <> "USys" Then
            List1.AddItem tbl.Name        'Adicionar o nome da tabela à lista list1

        End If
    Next
  Data1.DatabaseName = nome
  Data1.RecordSource = "select * from customers ;"
  Data1.Refresh
  List1.Visible = True
End Sub


Private Sub Command2_Click()
Unload Me
End Sub

Private Sub List1_Click()
Dim tabelaEscolhida As String
tabelaEscolhida = List1.Text
Data1.RecordSource = "select * from " & tabelaEscolhida & " ;"
  Data1.Refresh
End Sub