Visual Basic para Aplicaciones - Insertar datos en un combo

Hola.
Tengo una base de datos en access y un adodc asociado a una tabla que contiene los clientes, me gustaría saber como puedo hacer que un combo que tengo en el mismo formulario que el adodc se rellene con todos los nombres de los clientes para poder elegirlos.
Gracias.

Dim VarRegistro As Recordset
Dim Varbase As Database
Set Varbase = OpenDatabase("nombre de base Datos")
Set VarRegistro = Varbase.OpenRecordset("NombreTable", dbOpenDynaset)
VarRegistro.MoveLast
VarRegistro.MoveFirst
'Estas dos instrucciones es para el el RecordCount cuente realmente con el numero total de registros de la tabla porque sino siempre seria 1 claro esta si existe algun registro

Do While Not VarRegistro.EOF
' Form1 es el nombre del formulario
Form1.ComboBox1.AddItem VarRegistro.Fields("NombreCampo")
VarRegistro.MoveNext
' si no me equivocado esto debe de cargar el combobox

End Sub

Varbase.Close

Perdon en la primera respuesta me comi el Loop y puse el Varbase.Close despues del final del procedimiento !!!!

Dim VarRegistro As Recordset
Dim Varbase As Database
Set Varbase = OpenDatabase("nombre de base Datos")
Set VarRegistro = Varbase.OpenRecordset("NombreTable", dbOpenDynaset)
VarRegistro.MoveLast
VarRegistro.MoveFirst
'Estas dos instrucciones es para el el RecordCount cuente realmente con el numero
'total de registros de la tabla porque sino siempre seria 1 claro esta si existe algun registro
Do While Not VarRegistro.EOF
' Form1 es el nombre del formulario
Form1.ComboBox1.AddItem VarRegistro.Fields("NombreCampor")
VarRegistro.MoveNext
' si no me equivocado esto debe de cargar el combobox

Loop

Varbase.Close

End Sub