oi turma!

gostaria de saber como faço p/ abrir o banco de dados acess 2000, o 97 el abro assim

Set banco16 = OpenDatabase("cclientememliste.mdb")
Set mb16 = banco16.OpenRecordset("dtd")

Para DAO eu utilizo assim:

 

Dim DbName As String
Dim Wrk As Workspace
On Error GoTo Erro:
    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 Cliente = Banco.OpenRecordset("TblClientes", dbOpenDynaset)

 

E ADO eu uso assim:

 

Option Explicit

Public CON As ADODB.Connection
Public RS As ADODB.Recordset
Public Aplicacao As New CRAXDRT.Application
Public Report As New CRAXDRT.Report

Sub Connect()
Set CON = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")

CON.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "Banco.mdb;Jet OLEDB:database Password=senha"
RS.CursorLocation = adUseClient

End Sub

 

Espero ter ajudado

 

veleu obrigado!!

estou usando dao + desse jeito não dar serto, desse jeito so abre o 97 eu quero abrir 0 2000

vá no menu "Project...References..." veja se o item Microsoft Data Access Object 3.5 está checkado... se estiver desmarque. Escolha o item Microsoft Data Access Object 3.6

 

Veja se dá certo

não encontrei este item, estou usando vb 6, será que tenho que atualizar este sistema