Pessoal, boa noite
Alguem sabe como me ajudar pois quanto tento abrir o projeto com o codigo abaixo da o seguinte
ERRO: Run timer erro 13 --> type mismatch
Sendo que uso vb6 com access 2007
Private Sub Form_Load
Set BDDados = OpenDatabase(App.Path & "BANCO.MDB", False, False, ";pwd=" & "102030") '
Set tbprod = BDDados.OpenRecordset("mercadoria", dbOpenTable) ' linha que da o erro