vb 如何在文件名里加上时间

vb要保存一个xls 文件，能把时间加到文件名里面去吗？我这么写不对 CStr(time)
 Conn.Execute "select 日期 as 日期, 时间 as 时间, 浓度 as 浓度 into [Excel 8.0;database=" & App.Path & "\Data" & CStr(Year(Date)) + "-" + CStr(Month(Date)) + "-" + CStr(Day(Date)) + "-" + CStr(Time) & ".xls].sheet1 from nongdubiao" --------------------编程问答-------------------- 冒号是不能作文件名的.
Replace(CStr(Time), ":", "") --------------------编程问答-------------------- or
Replace(CStr(Time), ":", "-") --------------------编程问答-------------------- 因为冒号前面代表的是驱动器标识符. --------------------编程问答-------------------- 因为文件名里不能有冒号 --------------------编程问答-------------------- 写个正则，把冒号 / \ 都替换掉! --------------------编程问答-------------------- 舍近求远了

Conn.Execute "select 日期 as 日期, 时间 as 时间, 浓度 as 浓度 into [Excel 8.0;database=" & App.Path & "\Data" & Format$(Now, "yyyy-mm-dd HHNNSS") & ".xls].sheet1 from nongdubiao"

补充：VB ,  数据库(包含打印，安装，报表)