Como lleno un combobox!

Aquí tienes un ejemplo
Private Sub Cargar_Combo
Combodoc.Clear
Set Lrec = Mibase.OpenRecordset("SELECT * FROM DOCTOS ORDER BY Doccod ASC;")
Do While Not Lrec.EOF
Combodoc.AddItem Lrec.Fields("Doccod")
Lrec.MoveNext
Loop
Lrec.Close
Set Lrec = Nothing
End Sub
Suete !

Public Sub Cargar_Combo()
Combo1.Clear
Set Lrec = BDArq.OpenRecordset("SELECT * FROM clientes ORDER BY nombrecliente ASC;")
Do While Not Lrec.EOF
Combo1.AddItem Lrec.Fields("nombrelcliente")
Lrec.MoveNext
Loop
Lrec.Close
Set Lrec = Nothing
End Sub
ya puse eso en mi Load de la forma1 pero aun no lo carga
y mi conexion la hice de la siguiente manera no se si tengo algo mal
Dentro de un nuevo modulo puse el siguiente codigo
Public ado As New ADODB.Connection
Public rs_1 As New Recordset
Sub Con_DB()
Call Ini
ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "C:\Documents and Settings\Usuario\Escritorio\basededatos\BDArq.MDB;Persist Security Info=False"
ado.Open
End Sub
Sub Des_Db()
ado.Close
End Sub
Sub Ini()
Set ado = New ADODB.Connection
Set rs_1 = New ADODB.Recordset
Set rs_2 = New ADODB.Recordset
End Sub