Dim dt as  New DataTable
Dim adapter as New OleDbDataAdapter("Select * from lag_bestand WHERE" & _
  "palette=?", ConnectionString)
adapter.SelectCommand.Parameters.AddWithValue("@Palette", palette)
 
adapter.Fill(dt)
 
ListBox.DisplayMember = "artnr"
ListBox.DataSource = dt