Conexao Access

[BRUNOD'SOUZA 0]

Dim banco As Database

Dim tabela As Recordset

Dim areatrabalho As Workspace

 

Private Sub command1_Click()

Dim caminhopath

caminhopath = App.Path & "\Banco10928724.mdb"

Set areatrabalho = Workspaces(0)

Set banco = areatrabalho.OpenDatabase(caminhopath) ' ABRINDO A BASE DE DADOS

Set tabela = banco.OpenRecordset("Clientes", dbOpenSnapshot) --->>> dá pau nessa linha (type mismatch?????)

msgbox "conecção efetuada com sucesso", vbOnly

 

em referencias no meu vb5 nao tem a opção(Microsoft Data Biding Collection)

[Dennys Lopes 0]

No seu VB tem a referencia do ADO (ActiveX Data Objetcs)?