Type mismatch

[sacofritoxd]

Boa tarde glr. to faendo um projetinho aqui só pra eu aprender a mexer em list view

e da erro 13 type mismatch

já vi q isso pode ser erro de declaraçao de variavel

mas não acho nd q possa resolver.. está declarado corretamente

vou postar o codigo pra voces

Dim db As Database
Dim dsproduto As Recordset

Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\dados.mdb")
preencheproduto
mostra
End Sub

Private Sub Text1_Change()
Set dsproduto = db.OpenRecordset("produtos", dbOpenSnapshot)
dsproduto.FindFirst "codigo =" & Text1
If Not dsproduto.NoMatch Then
   mostra
  
Else
   Exit Sub
End If


End Sub

Function preencheproduto()

Set dsproduto = db.OpenRecordset("produto", dbOpenSnapshot) ' erro aqui
Text2.Clear
Do While Not dsproduto.EOF
   Text2.AddItem dsproduto!descricao
   dsproduto.MoveNext
Loop

End Function

Function mostra()

Text2 = IIf(IsNull(dsproduto!descricao), "", dsproduto!descricao)
Text3 = IIf(IsNull(dsproduto!precovenda), "", dsproduto!precovenda)
End Function

[Anderson Fernandes]

Bom dia!

Em qual linha esta ocorrendo este erro?

[sacofritoxd]

Esta comentado a linha que dá o erro

já pensei q pudesse ser "produtos" o nome da tabela

mas não é...

a declaração está correta

não sei mais o que pode ser

Set dsproduto = db.OpenRecordset("produto", dbOpenSnapshot) ' erro aqui