Public Class Form1
    Private Sub cmdAlleSehen_Click(...) Handles ...
        Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
        Dim reader As OleDbDataReader
 
        con.ConnectionString =
            "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Temp\Termin.mdb;" & _
              "Jet OLEDB:database Password=TestPW;""
 
        cmd.Connection = con
        cmd.CommandText = "select * from Tabelle1 where Zeit like"  ????????????
 
        Try
            con.Open()
 
            reader = cmd.ExecuteReader()
            lstTab.Items.Clear()
            Do While reader.Read()
                lstTab.Items.Add(
                    reader("Termin") & " # " &
                    reader("Zeit"))
            Loop
            reader.Close()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class