[Resolvido]Tipo de dados incompatível com dados de critério

Private Sub cboConsulta_GotFocus()
Dim strsql As String
strsql = "SELECT ID_Verificação,Verificação FROM tblVerificacao WHERE ID_Peça = '" & Parent!TxTId_Peça & "' ORDER BY Verificação;"
Me!CboConsulta.RowSource = strsql
End Sub

Retornando a mensagem Tipo de dados incompatível com dados de critério

campo ID_Peça = numero

TxtID_Peça = recebe de campo numero

Olá, se o campo a receber a informação é do tipo número tens que declarar o tipo da variável como tal também e estais declarando como texto (string) troca para Integer

Show, Avelino!

Obrigado!