Dim objCMD As OleDb.OleDbCommand
            Dim DeleteSQL As String = "DELETE FROM tProgramme WHERE MName=? AND" & _
              "Programmpfad1=?"
 
            If objConn.State = ConnectionState.Closed Then ' oder Is Nothing??
                objConn = getConn("Data.mdb") ' einfach objConn.Open() ?
            End If
 
            Dim DeleteCMD As New OleDb.OleDbCommand(DeleteSQL, objConn)
            objCMD.CommandText = DeleteSQL ' Überflüssig, schon zugewiesen bei 
            ' New OleDbCommand
 
            objCMD.Parameters.Add("MName", OleDb.OleDbType.WChar).Value = _
              Me.lbl_Mitarbeiter.Text ' Besser VarChar?
            'objCMD.Parameters.Add("Programmpfad1", 
            ' OleDb.OleDbType.WChar).Value = Me.tsbtn_ben1.Text ' Ditto
 
            DeleteCMD.ExecuteNonQuery()
            ' Connection wieder schliessen?

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist