Dim objdataadapter As OleDb.OleDbDataAdapter
        Dim ds_Kd As New DataSet()
        Dim objConnection As OleDb.OleDbConnection = _
        New OleDb.OleDbConnection _
        ("Provider=Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=c:\Datenbanken\Kunden.mdb")
        Dim Kd_nr As String
        Kd_nr = "53"
        ds_kd.Clear()
        objdataadapter = New OleDb.OleDbDataAdapter _
                ("SELECT * FROM(Offene_Bestellungen)WHERE(Kunde= '&Kd_nr&')", _
                objConnection)
        objdataadapter.Fill(ds_kd, "Offene_Bestellungen")
        ListBox1.DataSource = ds_kd.Tables("Offene_Bestellungen")
        ListBox1.DisplayMember = "Kunde"