请教 如何把 ACCDB 表中字段加载到 Combobox 中？

Question

Dim CNN As New ADODB.Connection
        Dim RS As New ADODB.Recordset
        Dim I As Integer
        CNN.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & System.Environment.CurrentDirectory & "\AAA.accdb;"
        CNN.Open()
        RS = CNN.Execute("select count(*) from 登录信息 ")

如何在打开窗体时 把字段 姓名 加载到 COMBOBOX 中

        CNN.Close()
        CNN = Nothing

谢谢！