Private Sub Form_Load()
   Dim db As Database
 
   Set db = DBEngine.OpenDatabase("C:Eigene Dateiendb6.mdb", False, False)
 
   intpersnr = 0
   var_k = "3"
   wsname = "05"
 
   SQL = "DELETE FROM tblProjektstunden WHERE " & _
            "Personalnummer = " & CStr(intpersnr) & _
            " AND Projektnummer = '" & var_k & "'" & _
            " AND Monat = '" & wsname & "'"
 
    db.Execute SQL
End Sub