Imports System.Data.OleDb
Public Class Form1
    Dim con As New OleDbConnection
    Dim command As New OleDbCommand
    Dim reader As OleDbDataReader
 
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
        "C:\Datenbank.mdb;"
 
        Dim DateVon As DateTime = DateTime.Today
        Dim DateBis As DateTime = DateTime.Today
        Dim TimeBis As New TimeSpan(23, 59, 59)
        DateBis = DateBis.Add(TimeBis)
 
        Dim SQL As String = "select * from Tabelle where Zeit1 between ? and ?"
        Dim command As New OleDb.OleDbCommand(SQL, con)
 
        With command.Parameters
            .Add("Par1", OleDb.OleDbType.Date, 0).Value = DateVon
            .Add("Par2", OleDb.OleDbType.Date, 0).Value = DateBis
        End With
        Try
            con.Open()
            Ausgabe2()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        con.Close()
 
    End Sub
 
    Private Sub Ausgabe2()
        reader = command.ExecuteReader()
        Tabelle.Items.Clear()
        Do While reader.Read()
            Tabelle.Items.Add(reader("Betreff") & " # " &
                reader("Zeit1") & " # " &
                reader("Zeit2"))
        Loop
        reader.Close()
    End Sub