Bueno la verdad es que nunca he usado ese control pero creo que la manera correcta de enlazarlo seria esta:
Código:
Private Sub Form_Load()
Dim conectar As ADODB.Connection
Dim recorrido As Recordset
Dim SQL As String
Set conectar = New ADODB.Connection
conectar.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
conectar.Open
Set recorrido = New Recordset
conectar.CursorLocation = adUseClient
SQL = "SELECT nombre from ciudad"
recorrido.Open SQL, conectar
Set DataCombo1.RowSource = recorrido
DataCombo1.ListField = "nombre"
DataCombo1.DataField = "nombre"
Set DataCombo1.DataSource = recorrido
End Sub
prueba y nos cuentas