What wrong with this code.

Dim IntRetrieve As Integer
frmChkBk.adochkBk.commandType = adcmdText
intRetrieve = val(InputBox("What check # do you want to retrieve?", "Retrieve"))
frmChkBk.adoChkBk.RecordSource = _
"select * from tblchecks where fldnum = intRetrieve"
frmChkBk.adoChkBk.refresh
frmChkbk.adochkBk.commandType = adCmdTable

error message: No value given for one or more required parameters

I through up a msgbox with intRetrieve has the value I key in form mu input box.
My fldNum is an Integer data type

New to VB

Thanks Randy