Sub btnSuch_Click
Dim Query As String
Dim txtvon, txtbis As String
txtvon = edtVon.Text
txtbis = edtBis.Text
Query = "Select Datum, Beginn, Ende, Stunden FROM " & Main.DBTableName & " WHERE Datum BETWEEN'" & txtvon & "' AND '" & txtbis & "'"
WebView1.LoadHtml(DBUtils.ExecuteHtml(Main.SQL1, Query, Null, 0, True))
End Sub