[Resolvido]Uso de Dcount ou Dlookup em Listbox

Prezados, bom dia.

Estou com um pequeno problema.

É possível usar um Dcount ou um dlookup em uma lstbox para verificar um determinado registro em outra tabela ?

Eis abaixo o código completo que estou a usar:

Dim intrecord As Integer
If DCount("codped", "Tblacertocomissao", "codped ='" & Me.Lstvendedor.Column(0) & "'") > 0 Then
MsgBox "Essa comissão já foi corrigida.", vbInformation, Me.Caption
Exit Sub
'caso não tenha sido feito
Else
   intrecord = Me!Lstvendedor.Column(0) ' coluna zero, é chave primária
       Forms![frmcorrecaocomissao].SetFocus 'movo o foco para o formulário
           DoCmd.GoToControl "CodPed"
               DoCmd.FindRecord intrecord 'encontre o registro.
                   Exit Sub
End If

Em vermelho a linha que está ocorrendo o erro com a seguinte mensagem:

Erro em tempo de execução 3464 --> Tipo de dados incompatíveis com na expressão de critério

Onde:
CodPed = número
TblAcertocomissao = tabela que quero pesquisar
Lstvendedor = listbox

Se alguém tiver alguma luz....eu agradeço.

Se CodPed é numero, porquê as aspas simples ?

Aspas simples é para texto, certo ?

Por isso o erro: Tipo de dados incompatíveis com na expressão de critério

Código:

If Nz(DCount("codped", "Tblacertocomissao", "codped =" & Me.Lstvendedor.Column(0)), 0) > 0 Then

Grande JPaulo, não me havia atentado a isso, passou batido.

Aprendi mais uma.

Muito grato.

Abraços

Fico feliz;

Obrigado pelo retorno o forum agradece.

Neste Natal ajude...