Dim selqry As String = "Select PNr, Vorname, Zuname from Ansprechpartner where" & _
  "Knr = " & dtKunde.Rows(Zaehler)!KNr
        Dim com As New SqlCommand(selqry, con)
        Dim ds As New DataSet
        Dim da As New SqlDataAdapter(com)
        Dim dtMitarbeiter As New DataTable
 
        Try
            con.Open()
            da.Fill(ds, "m")
            con.Close()
 
            dtMitarbeiter = ds.Tables("m")
 
            lstPartner.DataSource = dtMitarbeiter
            lstPartner.ValueMember = "PNr"
            lstPartner.DisplayMember = "Zuname" + "Vorname"
 
        Catch ex As System.InvalidOperationException
            MessageBox.Show("Das Öffnen der Verbindung ist fehlgeschlagen!" & _
              "Details: " + ex.Message)
        Finally
            con.Close()
        End Try

Liebe Gr??e
Nicole