Llenar un combobox desde la base de datos sql server

Hola, busco un metodo de llenar un combobox desde una base de datos a traves de un recordset, lo he intentado de esta forma

sql = "select * from na_solicitante"

With comSQL

.ActiveConnection = conSQL

.CommandText = sql

.CommandType = adCmdText

Set curSQL = .Execute

End With

While Not curSQL.EOF

combobox1.additem curSQL.Fields(0).Value

curSQL.MoveNext

Wend

y me arroja un error.

si alguien pudiera ayudar muchas garcias de antemano