Dim ConStr As String = ("Provider=Microsoft.Jet.OLEDB.4.0; Data " & _
                             "Source=" & Para_auslesen())
 
        Dim cn As New OleDb.OleDbConnection(ConStr)
 
        cn.Open()
 
        Dim da As New OleDb.OleDbDataAdapter("Select Text FROM Test WHERE " & _
                 "nummer=" & zahl & " AND text= '" & text & "'", ConStr)
 
        Dim ds As New DataSet
 
        da.Fill(ds, "Test")
 
        Form1.ListBox5.DataSource = ds
        Form1.ListBox5.DisplayMember = "Text.Test"
        Form1.ListBox5.ValueMember = "Text"
 
        cn.Close()