Private Sub Lis_UNotiz_Auswahl_SelectedIndexChanged(ByVal sender As _
  System.Object, ByVal e As System.EventArgs) Handles _
  Lis_UNotiz_Auswahl.SelectedIndexChanged
 
        DataSet_UNotiz.Clear()
        Dim AusNotiz As String
        AusNotiz =            'Variable für die Auswahl wird gefüllt
        MsgBox(AusNotiz)
 
        'Lädt die ausgewählte Notiz
        Dim Auswahl_Notiz As String = "SELECT * FROM t_Unfallbericht_Notiz" & _
          "where lfd like '" + AusNotiz + "'"
        Adapter_UNotiz.SelectCommand.CommandText = Auswahl_Notiz
        Adapter_UNotiz.Fill(DataSet_UNotiz)