Isso ai achei na net,mas não tenho costume de usar.Uso apenas um.

 

No load do form coloque.
CarregaCliente Combo1 'Nome do seu Combox

Sub CarregaCliente(cbo As ComboBox)
   Dim rsCbo As ADODB.Recordset
   cbo.Clear
   Set rsCbo = db.Execute("SELECT Codigo,Nome_Cli,Fone_Cli From Clientes   ORDER BY Codigo")
   Do While Not rsCbo.EOF
      
      'cbo.AddItem (rsCbo("Codigo") & " | " & rsCbo("Nome_Cli")
      'cbo.AddItem (rsCbo("Codigo") & " / " & rsCbo("Nome_Cli"))
      'cbo.AddItem (rsCbo("Codigo") & " - " & rsCbo("Nome_Cli"))
      cbo.AddItem (rsCbo("Codigo") & " = " & rsCbo("Nome_Cli"))
      'cbo.AddItem (rsCbo("Codigo") & "  " & rsCbo("Nome_Cli") & "  " & rsCbo("Fone_Cli"))
      rsCbo.MoveNext
   Loop
   rsCbo.Close
End Sub