For some reason the VB functions like "=Today()" would not work for the default value for a date parameter (it gave me the red angry line but would not say why it didn't like it).
I ended up making a dataset as follows and it worked fine.
select convert(date,convert(char(10),getdate(),101)) as Today