[Resolvido]Findfirst - Erro tipos incompatíveis

rivate Sub CORPO_PROVA_cmd_Click()
On Error GoTo erro

Dim d As DAO.Database
Dim r As DAO.Recordset
Dim stdocname, criterio As String

Set d = CurrentDb
Set r = d.OpenRecordset("corpo_prova", dbOpenDynaset)
criterio = "[apelido] = '" & Me.codmat & "'" And "[lote_CP] = '" & Me.LOTE & "'"

If IsNull(Me.corpo_prova) Or Me.corpo_prova = "NÃO ESPECIFICADO" Then
GoTo sair
Else
GoTo corpo_prova
End If

corpo_prova:

If r.RecordCount = 0 Then
r.AddNew
r!apelido = Me.codmat
r!LOTE = Me.LOTE
r!CLIENTE = Me.CLIENTE
r!data_recibo = Now
r!corpo_prova = Me.corpo_prova
r.Update
Me.Opção_CP = 1
Msg = MsgBox("ENVIAR CORPO DE PROVA DO LOTE " & Me.LOTE, vbInformation, "CONTROLE DE CORPO PROVA")

Else
r.FindFirst criterio
If r.NoMatch Then
r.AddNew
r!apelido = Me.codmat
r!LOTE_CP = Me.LOTE
r!CLIENTE = Me.CLIENTE
r!data_recibo = Now
r!corpo_prova = Me.corpo_prova
r.Update
Me.Opção_CP = 1
Msg = MsgBox("ENVIAR CORPO DE PROVA DO LOTE " & Me.LOTE, vbInformation, "CONTROLE DE CORPO PROVA")
Else
Me.Opção_CP = 2
Me.data_recibo = r!data_recibo
Msg = MsgBox("CORPO DE PROVA DO LOTE " & Me.LOTE & " ENVIADO EM " & r!data_recibo, vbInformation, "CONTROLE DE CORPO PROVA")
End If

End If


stdocname = "ETIQUETA_CORPO_PROVA"
DoCmd.OpenReport stdocname, acPreview
Me.Opção_CP = nulo
Me.corpo_prova = ""
Me.data_recibo = ""




sair:
r.Close
Set d = Nothing
Exit Sub

erro:
MsgBox Err.Description
Resume sair

End Sub

Tem como identificar em qual linha ocorre o erro?

É com critério, e ambos os campos são texto

criterio = "[apelido] = '" & Me.codmat & "' And [lote_CP] = '" & Me.LOTE & "'"

Boa tarde, Claudia, e bem-vinda ao fórum
Leia as regras do fórum. Escrever tudo em maiúsculas significa gritar.

claudio, funcionou o critério, muitissimom obrigada, mas agora aparce a msg : operação não suportada para este tipo de objeto..., tem idéia do que possa ser?

A mensagem se refere ao findfirst, addnew ou update, mas não deveria...
Em qual linha ocorre o erro?

oi achei o erro, faltou o dbopendynaset.... muitissimo obrigada!!!

De nada, disponha.