Dim Rs As Recordset
Set Rs = db.OpenRecordset(sSQL)
If Rs.RecordCount > 0 Then
  Do Until Rs.Eof
    Combo1.AddItem Rs.Fields(0)
    Rs.MoveNext
  Loop
End If
Rs.Close
Set Rs = Nothing

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de