Oi Bete tudo bom?
Olha o nosso colega Rochª se confundiu um pouco...hehehehe, mas o q vale é a intenção e ele já demonstrou muito conhecimento aqui... às vezes erramos por distração né??
Ele passou um tipo de conexão chamada DAO só q as referências q ele escreveu para vc colocar é do tipo ADO.
Este erro pode estar acontecendo pq vc está com o DAO referenciado em seu projeto e se vc fizer isso junto com a referência ADO - ou não - acontece o erro q vc descreveu. Por enquanto, esquece o ADO, só no momento!!
Retire a referência "Microsoft Activex Data Objects 2.6 Library" de seu projeto.
Declare as variáveis conforme o colega Rodrigo descreveu
Dim rst as recordset
dim db as Database
e use o q o colega Rochª passou para abrir o seu banco de dados (em DAO).
Qdo vc for utilizar o ADO vá no menu "Project...references" (ou referencias, como queira) RETIRE a referência do DAO, deve estar assim "Microsoft DAO 3.51 Object Library" ou como "Microsoft DAO 3.6 Object Library" e depois deixe a opção "Microsoft Activex Data Objects 2.6 Library" ticada (habilitada)
Agora sim!
dim rs as new recordset
'Ou dim rs as new ADODB.recordset
'Ou dim rs as ADODB.recordset
'mesma coisa para a conexão:
'Dim db as new Connection
'Ou Dim db as new ADODB.Connection
'Ou Dim db as ADODB.Connection
Caso vc escolha usar assim:
Dim db as ADODB.Connection
dim rs as ADODB.recordset
terá q "setar", instanciar ou inicializar as variáveis
set db = new ADODB.connection
set rs = new ADODB.recordset
aí vamos conectar ao banco access como exemplo
db.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_do_seu_banco.mdb
rs.cursorlocation = aduseclient
rs.open "Select * from tabela",db,adOpenDynamic,adLockOptimistic
desculpa se tiver algm erro... fiz na pressa hehehehehe
mas é basicamente isso ok Bete?
qq dúvida é só postar
t+
