Private ConnectionString as String = _
  "server=xyz.kasserver.com;password=xyz;database=xyz;UID=xyz;"
.....
 
Dim dt as New DataTable
Dim adap as new  MySqlDataAdapter("SELECT * FROM Status WHERE DS_Art LIKE" & _
  "?dsart", _
  ConnectionString)
adap.SelectCommand.Parameters.AddWithValue("?dsart", "%" + MyVar + "%" )
adap.Fill(dt)
 
 
ListBox2.DisplayMember = "DS_Art"
ListBox2.DataSource = dt