Public Sub getAnsprechpartner()
        Dim co_ansprechpartner As New OdbcConnection(ConnectionString)
 
        Dim sql_ansprechpartner As String
 
        sql_ansprechpartner = "Select * from kundenstammansprechpartner Where" _
          & _
                              "Kundennummer = '" & getKundennummer() & "'"
 
        Dim ds_ansprechpartner As New DataSet
        Dim da_ansprechpartner As New OdbcDataAdapter(sql_ansprechpartner,  _
                                                     co_ansprechpartner)
        Dim dr_ansprechpartner As DataRow
 
 
        'Verbdindung wird geöffnet
        co_ansprechpartner.Open()
 
        'der DataAdapter füllt das DataSet mit den Einträgen aus 
        ' Kundenstammanschrift
        da_ansprechpartner.Fill(ds_ansprechpartner, "kundenstammanschrift")
        'Die Daten vom DataSet werden an ein DataTable übergeben
        dt_ansprechpartner = ds_ansprechpartner.Tables("kundenstammanschrift")
        'Die erste reihe wird ausgewählt
        dr_ansprechpartner = dt_ansprechpartner.Rows(1)
 
        formKundenstamm.DefInstance.rtbKSTelefon.Text = dr_ansprechpartner.Item( _
          2)
        formKundenstamm.DefInstance.rtbKSEmail.Text = dr_ansprechpartner.Item(3)
 
        co_ansprechpartner.Close()
 
    End Sub
End Class