Dim oRs As Recordset
Set oRs = Db.OpenRecordset("SELECT DISTINCT Feldname FROM Tabelle")
With oRs
  If .RecordCount > 0 Then
    Do
      Combo1.AddItem .Fields(0).Value
      .MoveNext
    Loop Until .Eof
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de