Dim MyVar = Me.TextBox1.Text
 
'Sucht nach gleichen Werten zwischen TextBox und DB. Gibt die Werte in der 
' ListBox aus:
 
cmd.CommandText = "SELECT * FROM Status WHERE DS_Art like '" & MyVar & "'"
 
reader = cmd.ExecuteReader()
 
Do While reader.Read()
 
ListBox2.Items.Add(reader("DS_Art"))
 
Loop
 
reader.Close()