This is giving me a real headache. I tried changing strSQL to use CAST as follows:
strSQL = "INSERT INTO tblItemRequest ( [IR_ID], [I_PtNo], [StaffNumber], [IR_DateRequested], [IR_QtyRequested], [IR_Notes],[IR_Status]) "
strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & strID &...