Paz e prosperidade amigo !
Vamos vou usar o JET 4.0 para acessar minha base de dados que é feita em Access2000.
'//////////////////////////
'/Inicio do código
'/No evento que você deseja carregar a base de dados coloque o código abaixo
'///////////////////////////
Dim conexao, rst ' Cria duas variaveis
Set conexao = CreateObject("ADODB.Connection") ' Define a varivel com conexão
Set rst = CreateObject("ADODB.RecordSet") 'Define a variavel com Tabela
'
'/////////////////////////////////////
'/Abaixo estou abrindo o banco de dados
'////////////////////////////////////
conexao.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=c:dados.mdb"
'
'////////////////////////////////////
'/Agora vou abrir a tabela Clientes que está no meu banco de dados
'/////////////////////////////////////
Set rst.ActiveConnection = conexao
rst.Open "select * from Clientes"
'
'/////////////////////////////////
'/Prontinho agora é só manipular os registros da tabela, coloquei alguns exemplos '/abaixo
'/////////////////////////////////
'
'/////////////////////////////////
'/Atribui as caixas de textos os valores de cada campo
'////////////////////////////////
Text1.text = rst("Código) 'Pega o valor do campo Código
Text2.text = rst("Nome") 'Pega o valor do campo Nome
Text2.text = rst("Fone") 'Pega o valor do campo Fone
'
'//////////////////////////////////
'Ou então poderia ficar assim:
'//////////////////////////////////
Text1.text = rst(0 'Pega o primeiro campo
Text2.text = rst(1) 'Pega o segundo campo
Text2.text = rst(2) 'Pega o terceiro
'/////////////////////////////////
'/Fim do Código
'////////////////////////////////
Tentei...
