数据库是用的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 & ")"
该了就行了!谢谢大家的帮助!!!