I haven't done it before, but I see a pound sign on the toolbar above which says, wrap tags around selected text, so i'll try it below and see what it does.
[CODE]Function CreateInvoice(OrderID As Long, Amt As Currency, InvoiceID As Long) As Boolean
Dim rsw As New RecordsetWrapper
If...