Estou fazendo uma pesquisa com a seguinte linha:

Dim criterio As String

criterio = InputBox$("Código a ser pesquisado: ", "Pesquisando por código")

If criterio <> Empty Then

Data1.RecordSource = "Select * from produto where (cod)>='" & criterio & "'"

Data1.Refresh

If Data1.Recordset.RecordCount = 0 Then

MsgBox "Código não localizado! ", vbExclamation, "Pesquisando por código"

Else

MsgBox "Localizado!"

End If

End If

O problema é que está surgindo o erro:

Run-time error ‘3061’

Too few parameters. Expected 1

Não estou dando conta de resolver.Obs: a tabela esta ligada corretamente...