Private Sub kn_search_Click()
Dim str_search As String
If (Me.vld_search = "") Or (IsNull(Me.vld_search)) Then Exit Sub
str_search = Me.vld_search
List0.RowSource = "SELECT tbl_log.log_id AS ID, tbl_log.log_datum AS [Date], tbl_log.log_titel AS Title, tbl_log.log_tekst...