Private Sub CB_Start_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles CB_Start.Click        
If weiter = True Then
            SQL_VERB_PANAL.Visible = False
            CB_PROT_PANAL.Visible = True
            CB_Sql_Com = DB_Connect.CreateCommand
            CB_SQL_TRANS = DB_Connect.BeginTransaction( _
              System.Environment.UserName)
            'CB_Sql_Com.Connection = DB_Connect
            CB_Sql_Com.Transaction = CB_SQL_TRANS
            'CB_Sql_Com.ExecuteNonQuery()
            CB_Protokoll_TXT = CB_Protokoll_TXT & DateTime.Now & " Transaction" & _
              "auf " & DB_Connect.Database & " gestartet." & vbCrLf
            CB_PROT_PANAL_TXT.Text = CB_Protokoll_TXT
            'TecDoc Dateien lesen und in Array schreiben
            Datei = System.IO.Directory.GetFiles(Me.CB_TecDoc.Text)
            'max Anzahl Dateien im Ordner
            max_Datei = UBound(Datei)
            'Array durchlaufen und Daten anlegen
            For i = 0 To max_Datei
                j = Split(Datei(i), "\")
                k = UBound(j)
                l = Split(j(k), ".")
                m = UBound(l)
                If UCase(l(m)) = "DAT" Then
                    such = l(0)
                    n = CB_Script(Me.CB_TecDoc_Satzbeschreibung.Text, such, _
                      Me.CB_DatAblage.Text, _
                                  Me.CB_TecDoc.Text, DB_Connect.Database)
                    If n = True Then
                        o = CB_DB(CB_SQL_DEL_BEFEHL)
                        o = CB_DB(CB_SQL_CREATE_BEFEHL)
                        n = False
                    End If
                End If
            Next
 
        End If
    End Sub
 
 
    Private Sub CB_PROT_PANAL_ABR_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles CB_PROT_PANAL_ABR.Click
        'sql server verbindung trennen und offene dateien schließen
        'rollback
        'transaktion beenden
        'CB_SQL_TRANS.Rollback(System.Environment.UserName)
        CB_SQL_TRANS.Commit()
End Sub
 
'hier noch die Function
    Public Function CB_DB(ByVal Befehl As String) As Boolean
        Dim ok As Boolean
        Try
            CB_Sql_Com.CommandText = Befehl
            CB_Sql_Com.ExecuteNonQuery()
            ok = True
        Catch ex As Exception
            MsgBox("SQL Befehl " & Befehl & vbCrLf & " wurde nicht ausgeführt" _
              & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
            ok = False
        End Try
        Return ok
    End Function