Simples;ele é antiguinnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnho,só isso.

José vc ficou chateado com o Eduardo, porém é isso mesmo o objeto data control é antigo e digo mais mesmo que vc consiga conectar terá algumas instabilidades, minha sugestão é, use ADO terá um resultado mais estavel.

José Ailton, siga o conselho do Treze. ADODC é muito estável e sobrepuja o rdo dao, pois ele resolve estas tecnologias mais antigas.

Qualquer dúvida poste. Eu ainda te sugiro colocar um componente ADODC no form Principal e declarar as conexões em um módulo. Desse jeito:

 

1º Conexão no Módulo

Option Explicit

Public CON As AdoDB.Connection
Public RS As AdoDB.Recordset
-----------------------------------------------------------
Sub Conectar()
Set CON = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
CON.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "dBF.mdb"
RS.CursorLocation = adUseClient
End Sub

 

2º Chamar a função "Conectar" no formLoad

Private Sub Form_Load()
Conectar
CarregaCodCli
End Sub

3º Criar Função: Ela será colocada no FormLoad para carregar os códigos na combo

Sub CarregaCodCli()

Set RS.ActiveConnection = CON
RS.Open "select * from CLIENTES"

Do While Not RS.EOF
cboBC.AddItem RS!CODCLIENTE
RS.MoveNext
Loop

End Sub

4º no evento Click, chamar conexão do bd e extrair dados com um recorsets
Neste caso: Extrair informações do cliente e exibí-los em labels

Private Sub cboBC_Click()

Conectar
RS.Open "Select * FROM CLIENTES where CODCLIENTE= '" & cboBC.Text & _
"'order by CODCLIENTE", CON, adOpenStatic, adLockOptimistic

Label7.Caption = RS.Fields(0)
Label8.Caption = RS.Fields(1)
Label9.Caption = RS.Fields(2)

End Sub

 

É só um exemplo básico.

 

Espero ter ajudado.