....
    InitCombo dtCombo, "SELECT ID, Name AS KlappInfo FROM Personen"
    ....
 
Private Sub InitCombo(dt As Data, SQLString As String)
    dt.Connect = ""
    dt.DatabaseName = databaseName
    dt.RecordSource = SQLString
    dt.Refresh
End Sub