数据库时间型无法INSERT INTO,该怎么解决

数据库时间型无法INSERT INTO
Dim   S2   As   Date   =   New   Date
                S2   =   Now()
Dim   ssql2   As   String   =   "insert   into   TXtype(type1con,type1order,isparent,time)   values( ' "   &   text1B.Text   &   " ', ' "   &   text2B.Text   &   " ', ' "   &   text3B.Text   &   " ',s2) "
如果不加S2一切正常
加了S2就说有问题了  
请问各位有什么办法解决吗
谢谢了

[解决办法]
...text3B.Text & " ', ' " & s2 & " ') "