try this code for the cbo. It is for dao but it can be converted.
Code:
With rs
        cbo.Clear
        cbo.Text = "Name"
        Dim o As Integer
        rs.MoveFirst
        For o = 1 To rs.RecordCount
        cbo.AddItem rs![Name]
        If o <> rs.RecordCount Then rs.MoveNext
        Next o
End With