como faço pra abrir um banco de dados acess 2000 com controle DAO ?

Set DB = OpenDatabase(App.Path & "     este.mdb", False, False, "Access 2000;")

 

onde está o erro ?

Declare a variável "Banco" como database e a Variável "Tabela" como recordset

 

Dim DbName As String
Dim Wrk As Workspace

    DbName = App.Path & "Banco.mdb"
'indica o banco de dados
    Set Wrk = DBEngine.Workspaces(0)
    Set Banco = Wrk.OpenDatabase(DbName, False, False, ";PWD=senha")
'indica a tabela
    Set Tabela = Banco.OpenRecordset("Nome_Tabela", dbOpenDynaset)

 

se vc usa o access 2000 tem que fazer referência ao "Microsoft DAO 3.6 object library"

 

t+

Qualquer dúvida post