'Abfrage ausloesen, Daten empfangen
Set rsData = getKpDetails(KPID)
Set rsDataEkp = getEkpVorNachnameOrt
 
'Recordset zum fuellen
'Name wird angezeigt, verknüpft mit wird die
'KP ID mit der KP EVP Nummer im folgenden RS
Set DataCombo.RowSource = rsDataEkp
DataCombo.ListField = "NAME"
DataCombo.BoundColumn = "KP ID"
 
'Verknuepftes, zu aenderndes Recordset
Set DataCombo.DataSource = rsData
DataCombo.DataField = "KP EVP Nummer"
 
' ...
 
rsData.Update