Dim con As New SqlServerCe.SqlCeConnection
con.ConnectionString = "Data Source=Database1.sdf"
Dim SQL As String = "DELETE FROM Datenbank WHERE Datum = '" & Datum & "'"
Dim adapter As New SqlServerCe.SqlCeCommand(Sql, con)
 
con.Open()
Try
adapter.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
End Try
con.Close()