este es el codigo que uso..
Private Sub Form_Load()
Dim Ruta As String
Dim Comando As String
Comando = "select * from PRODUCTOS order BY PRODUCTO"
Ruta = App.Path & "\INVENTARIO.mdb"
Set MiConexion = New ADODB.Connection
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Ruta & ";Persist Security Info = False;Jet OLEDB:Database Password=xxxx"
MiConexion.Open
Set MiRecordSet = New ADODB.Recordset
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Ruta & ";Persist Security Info = False;Jet OLEDB:Database Password=xxxx"
Adodc1.CommandType = 8
Adodc1.RecordSource = Comando
Adodc1.Refresh
combo1.DataField = Adodc1.Recordset.Fields("producto").Value
en propiedades del combo1 DataSource selecciono adodc1 ya que si no lo selecciono hace por enlazarse ..
se que algo estoy haciendo mal.. pero ¿que sera?

