Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 
        Dim con As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
        Dim reader As OleDb.OleDbDataReader
        Dim Auslesen As String()
 
        con.ConnectionString = _
             "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=C:\Probe\Dat\Probe.mdb"
        cmd.Connection = con
 
        Try
 
            Auslesen = Split(ListBox1.SelectedItem.ToString, "-", -1) 'Split ( 
            ' Ausdruck,Trennzeichen,Anzahl) Anzahl -1 Gibt alle Werte zurück
            Kundenbox_Label_KdNR.Text = Auslesen(0) 'Belegt die Labelbox mit 
            ' dem ersten Teil der gesplitteten ListBox Zeile
            con.Open()
            cmd.CommandText = "select * from TBL_Kunde where ID_Kundennummer =" & _
              """'" & Auslesen(0) & "'"""
            reader = cmd.ExecuteReader()
            Do While reader.Read()
 
                Kundenbox_TextBox_Name.Text = reader("FLD_Name")
                Kundenbox_TextBox_Vorname.Text = reader("FLD_Vorname")
                Kundenbox_TextBox_Strasse.Text = reader("FLD_Strasse")
                Kundenbox_Textbox_PLZ.Text = reader("FLD_PLZ")
                Kundenbox_Textbox_Ort.Text = reader("FLD_Ort")
                Kundenbox_TextBox_Telefon.Text = reader("FLD_Telefon")
                Kundenbox_Textbox_Telefax.Text = reader("ID_Kundennummer")
                Kundenbox_Textbox_EMail.Text = reader("FLD_EMail")
            Loop
            reader.Close()
            con.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message) 'Hinweis für den Fall das eine Zeile ohne Daten 
            ' ausgewählt wurde
 
        End Try
 
    End Sub