数据库是用的access数据库!!!
 Dim dateSchDate As Date
 Dim timeSchTime As Date
 dateSchDate = #1/1/2000#
 timeSchTime = #7:18:00 AM#strSql = "insert into tbscheduleweek2 (model,amount,serialno,PublicFormNO,date,time) values " _
                                   & "('" & strSchModel & "'," & lngSchAmount & ",'" & strSchSerial & "','" & strSchPublicFormNO & "'," & dateSchDate & "," & timeSchTime & ")"