Paz e prosperidade amigo !!!
Tenta fazer o seguinte:
'//////////////////////////
'/No load do seu form coloque
'/A variavel xCaminho vai armazenar o caminho do meu banco de dados
'/que neste exemplo é o arquivo Dados.mdb que está na mesma pasta
'/do executavel. Você pode substituir pelo caminho fisico do seu banco de dados
'/Exemplo: xCaminho é igual a : "C:MinhaPastaMeuBanco.mdb"
'//////////////////////////
Dim xCaminho as String
IF Right(App.Path,1) <> "" Then
xCaminho = App.Path & "Dados.mdb"
Else
xCaminho = App.Path & "Dados.mdb"
End if
'///////////////////////////////
'/Define o valor as variaveis Bco e TB
' ///////////////////////////
Set Bco = OpenDatabase(xCaminho, False)
Set TB = Bco.OpenRecordset("Select * from tbClientes Order By Cod asc")
'///////////////////////////
'/Enquanto não chegar ao o fim do Recordset
'/vai adicionar o primeiro campo do registro corrente ao datacombo
'/Casp você queira outro campo substitua 0 por outro numero de acordo com a
'/quantidade e ordem dos campos de sua tabela
'/////////////////////////////////////////////
Do While Not TB.EOF
DataCombo.AddItem TB(0)
'//////////////
'/Vai para o proximo campo da tabela
'//////////////
TBCadastro.MoveNext
Loop
'//////////////
'/Se for o fim da tabela sai do loop e termina o código
'/////////////
Tentei...
