Imports System.IO
Public Class Form1
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim path As String
        Dim daba As New db
        If TextBox1.Text = "" Then
            MsgBox("Bitte zuerst die Datei auswählen!")
            Exit Sub
        End If
 
        path = Strings.Left(TextBox1.Text, InStrRev(TextBox1.Text, "\", -1))
        If File.Exists(path & "kd_turm.txt") Then
        Else
            Label1.Text = "Achtung: Datei wird kopiert!"
            File.Copy(TextBox1.Text, path & "kd_turm.txt")    'hier soll die 
            ' ProgressBar laufen
            Label1.Text = ""
        End If
        Label1.Text = "Achtung: Daten werden verarbeitet!"
 
        daba.daba(path)                                       'und während 
        ' dieser Anweisung auch
                                                              'siehe unten für 
                                                              ' Code dieser 
                                                              ' Klasse
        File.Delete(path & "kd_turm.txt")
        Label1.Text = ""
        MsgBox("Fertig!")
    End Sub
End Class

Imports System.IO
Public Class db
    Public Sub daba(ByVal path As String)
        Dim acc As New Access.Application
        MsgBox(Left(My.Application.Info.DirectoryPath, InStrRev( _
          My.Application.Info.DirectoryPath, "\M", -1)))
        File.Copy(Left(My.Application.Info.DirectoryPath, InStrRev( _
        My.Application.Info.DirectoryPath, "\M", -1)) & _
        "Mailcheck\bin\Release\Daten.mdb", path & "Daten.mdb")
 
        acc.OpenCurrentDatabase(path & "Daten.mdb")
        acc.DoCmd.RunMacro("go")
        acc.CloseCurrentDatabase()
        acc.Quit()
 
        File.Delete(path & "Daten.mdb")
 
    End Sub
End Class

MFG
Sebastian
______________________________________________________________________________
______________________________________________________________________________

Die erfolgreichste Schleife:
.
.
...do until success...