Public Sub DatenBankSchreiben()
        Form1.OleDbDataAdapter1.Fill(Form1.DataSet11, "tabSuch")
        Dim dr As System.Data.DataRow
        Dim i As Integer
 
        '#############
 
 
        Try
            For i = 0 To al_Size.Count - 1
                dr = Form1.DataSet11.tabSuch.NewRow
                dr.Item("Groesse") = al_Size.Item(i)
                dr.Item("DateiName") = al_Name.Item(i)
                .........
                .........
                .........
                RaiseEvent blub(Me, "erstelle Datenbank Inhalt" & (Round(((i / _
                  al_Size.Count - 1) * 100), 3)))
            Next
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
        '####################
        RaiseEvent blub(Me, "Speicher in DatenBank")
 
        Form1.OleDbDataAdapter1.Update(Form1.DataSet11)
        MsgBox("fertig :D ")
    End Sub