MS Access VBA Not Like with wild card

You have to put "INV*" into single quotes --> 'INV*' (no double double quotes)

strSQL = "SELECT DISTINCT I.[Vendor Nbr], I.[Vendor Name], I.[Delivery Date], I.[Document Date], I.[Purchasing Document], I.Item, I.[Short Text], I.[Order Quantity] " _
                   & " FROM qry002OpenOrders AS I " _
                    & " WHERE (((I.[Vendor Nbr])=" & rsVendor("Vendor Number") & ")" _
                    & "  AND ((I.[Delivery Date])<=Date()-30)) " _
                    & "  AND ((I.[Short Text]) Not Like 'INV*')) " _
                    & " ORDER BY I.[Purchasing Document];"