'-- Genau den vorher im Suchformular gewünschten Datensatz laden --
f.Adodc1.ConnectionString = PRGSTATUS.DBConnectStr$	'Provider=xxxxx, Data 
' Source=xxxxxxxx, wird beim Programmstart global initialisiert
f.Adodc1.RecordSource = "SELECT * FROM dKUNDENuVERBINDUNGEN WHERE" & _
  "dKUNDENuVERBINDUNGEN.Idx=" & FRMRECORD.PKey1
f.Adodc1.Refresh
Call frmFillCombo(f, "ConnName")            'Combofeld füllen / dies ist genau 
' das Feld, um das es geht.

' Universelle Funktion zum Füllen von Combo Feldern
Public Function frmFillCombo(f As VB.Form, ByVal cmbName As String) As Integer
 
    On Error GoTo FRMFILLCOMBO_ERR
 
    Dim krit As String
    Dim rs As New ADODB.Recordset
 
    Select Case f.Name
 
'	case ...
 
        Case FRM_KUNBEARBADDVERBINDUNG
            krit$ = "SELECT dKUNDENuVERBINDUNGEN.ConnName From" & _
              "dKUNDENuVERBINDUNGEN" & _
                    " GROUP BY dKUNDENuVERBINDUNGEN.ConnName" & _
                    " Having ((([dKUNDENuVERBINDUNGEN].[ConnName]) Is Not" & _
                    "Null))" & _
                    " ORDER BY dKUNDENuVERBINDUNGEN.ConnName;"
            '-- BCONNECT.c1 ist eine globale ADO Connection auf die Datenbank --
	    '-- Das Combofeld wird korrekt gefüllt --
	    rs.Open krit$, BCONNECT.c1, adOpenStatic, adLockReadOnly
            '-- SEV Control --
            With f.Controls(cmbName$)
                Set .Recordset = rs
                .BoundColumn = 1
            End With
            rs.Close
            Set rs = Nothing
 
 
        'case frm-.....
 
        Case Else
 
    End Select  'f.Name
 
    frmFillCombo = True
    Exit Function
 
FRMFILLCOMBO_ERR:
    MsgBox CStr(Err) & ": " & Error$, vbCritical, "frmFillCombo"
    frmFillCombo = False
    Exit Function
 
End Function