Conexao Access

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)