Vorab WARNUNG: Ab 32768 Datensätze ist die Listbox out off! Nichts geht mehr.
<br>
Voraussetzung: Database ist initiallisiert!!!
<br>
Private Sub ListMyClients (Byval oDBName As Database, Byval sTableName As _
  String)
     Dim SQL As String
     Dim ListRS As Recordset
     SQL = "SELECT DISTINCT (Vorname + Chr(32) +  FamName) AS ErgField FROM " + _
                 sTableName
     Set ListRS = oDBName.OpenRecordset(SQL, dbOpenDynaset)
     frmForm.Listbox1.Clear
     Do While Not ListRs.EOF
            frmForm.Listbox1.Additem Rs!ErgField
     Loop
End Sub