Dim dt as New DataTable
Dim adap as new  SqlDataAdapter("SELECT * FROM Status WHERE DS_Art = @dsart", _
  connectionString)
adap.SelectCommand.Parameters.AddWithValue("@dsart", MyVar )
adap.Fill(dt)
 
 
ListBox2.DisplayMember = "DS_Art"
ListBox2.DataSource = dt

Dim adap as new  SqlDataAdapter("SELECT * FROM Status WHERE DS_Art LIKE" & _
  "@dsart", connectionString)
adap.SelectCommand.Parameters.AddWithValue("@dsart", "%" + MyVar + "%" )