'Lösche das Programm aus der DB
 
            Dim objCMD As OleDb.OleDbCommand
            Dim DeleteSQL As String = "DELETE FROM tProgramme WHERE MName=? AND" & _
              "Programmpfad1=?"
 
            If objConn.State = ConnectionState.Closed Then
                objConn = getConn("Data.mdb")
            End If
 
            Dim DeleteCMD As New OleDb.OleDbCommand(DeleteSQL, objConn)
            objCMD.CommandText = DeleteSQL
 
            objCMD.Parameters.Add("MName", OleDb.OleDbType.WChar).Value = _
              Me.lbl_Mitarbeiter.Text
            'objCMD.Parameters.Add("Programmpfad1", 
            ' OleDb.OleDbType.WChar).Value = Me.tsbtn_ben1.Text
 
            DeleteCMD.ExecuteNonQuery()