scrollViewPort1.ViewContainer = "picture1"
scrollViewPort1.Refresh

    Dim bd As Database
    Dim Tabla As TableDef
    
    Set bd = OpenDatabase("C:\...\bd.mdb")
    For Each Tabla In bd.TableDefs
        If Tabla.Attributes = 0 Then MsgBox Tabla.name
    Next
    bd.Close
    Set bd = Nothing

    Dim bd As Database
    Dim i As Integer
  
    Set bd = Workspaces(0).OpenDatabase("C:\..\bd01.mdb")
    On Local Error Resume Next
    While Err.Number = 0
        MsgBox bd.TableDefs(i).Name
        i = i + 1
    Wend
    On Local Error GoTo 0
    bd.Close

    Dim Texto As String
    Dim NuevoTexto As String
    Dim F As Long
    'aqui le pones el directorio
    File1.Path = "c:\..."
    File1.Pattern = "*.txt"
    
    For i = 1 To File1.ListCount
        'Abres los archivos uno por uno
        F = FreeFile
        Open File1.List(i) For Input As #F
        Input #F, Texto
        Close #F
        ' vas juntando el texto en esta variable
        NuevoTexto = NuevoTexto & Texto & vbCrLf
        
    Next i
     'y luego pues ya nadamás guardas el nuevo archivo
     F = FreeFile
     Open "c:\...\nuevo_archivo.txt" For Input As #F
     Write #F, NuevoTexto
     Close #F

Adodc.recordset.execute("SELECT campo1,campo2, Origen FROM...")