Private Sub EintragLöschen()
 
        Dim strwhere As String
 
        Dim SQL = "DELETE TESTDTA.TAETIGKEIT.PROJEKTNR," & _
          "TESTDTA.TAETIGKEIT.PROJEKTNAME, TESTDTA.TAETIGKEIT.ZEITERFASSUNG," & _
          "TESTDTA.TAETIGKEIT.DATUM, TESTDTA.TAETIGKEIT.KOMMENTAR FROM" & _
          "TESTDTA.TAETIGKEIT "
 
        strwhere = " WHERE "
 
       ???
 
 
 
 
 
 
 
        Try
            OleDbConnection1.Open()
 
???