A forma como o LCRamos passou está certa e mesmo assim ainda está gerando erro?
"Select * from produto where cod >= '" & scriterio & "'"

O campo cod da tabela produto é do tipo número ou texto? Se for número retire as aspas simples.
Tente assim:
"Select * from produto where cod >= " & Cint(scriterio)