各位大侠我有个问题请求帮助：
画面动作
Public Sub
Dim systime1, sysdate1, sysdatetime
Dim vtag1, vtag2, vtag3
Dim oconn, oRs, oCom
Dim strprovider, strdatesource, strpsi, strsql, strCon
systime1 ="#" & Format(TimeValue(),"HH:MM:ss") & "#"
sysdate1 ="#" & Format(DateValue(), "yyyy-mm-dd") & "#"
'systime1 = Format(Time(),"HH:MM:ss")
'sysdate1 = Format(Date, "yyyy-mm-dd")
'sysdatetime = "#" & Now & "#"
'sysdatetime = "#" & sysdate1 & " " & systime1 & "#"
vtag1 = 11
vtag2 = 12
vtag3 = 13
strprovider = "Provider=Microsoft.Jet.OLEDB.4.0;"
strdatesource = "Data Source=E:\wincctag.mdb;"
strpsi = "Persist Security Info=False"
strsql = "insert into wincctab ( "
'strsql = strsql & "systime,sysdate,vtag1,vtag2,vtag3 ) values ( "
strsql = strsql & "systime,sysdate,vtag1,vtag2,vtag3 ) values ( "
'strsql = strsql & "systime,vtag1,vtag2,vtag3 ) values( "
strsql = strsql & systime1 & "," & sysdate1 & ","
'strsql = strsql & Time() & "," & Date & ","
'strsql = strsql & systime1 & "," & sysdate1 & ","
strsql = strsql & vtag1 & "," & vtag2 & "," & vtag3
'strsql = strsql & 1 & "," & 2 & "," & 3
strsql = strsql & ") "
'strsql = strsql & 1 & "," & 2 & "," & 3 & ")"
strCon = strprovider & strdatesource & strpsi
Set oconn = CreateObject("ADODB.Connection")
Set oRs = CreateObject("ADODB.Recordset")
oconn.ConnectionString = strCon
oconn.CursorLocation = 3
oconn.Open
Set oRs = oconn.Execute(strsql)
oRs.Close
oconn.Close
Set oconn = Nothing
End sub
vb宏
Public Sub ks()
Call shujujilv1("1", "2", "3")
End Sub
Public Function shujujilv1(value1, value2, value3)
Dim systime1, sysdate1, sysdatetime
Dim vtag1, vtag2, vtag3
Dim oconn, oRs, oCom
Dim strprovider, strdatesource, strpsi, strsql, strCon
systime1 = "#" & Format(TimeValue(Time()), "HH:MM:ss") & "#"
sysdate1 = "#" & Format(DateValue(Date), "yyyy-mm-dd") & "#"
'sysdatetime = "#" & Now & "#"
sysdatetime = "#" & systime1 & " " & sysdate1 & "# " '2008-10-1 8:54:25

vtag1 = value1
vtag2 = value2
vtag3 = value3
strprovider = "Provider=Microsoft.Jet.OLEDB.4.0;"
strdatesource = "Data Source=E:\wincctag.mdb;"
strpsi = "Persist Security Info=False"
strsql = "insert into wincctab ( "
strsql = strsql & "systime,sysdate,vtag1,vtag2,vtag3 ) values( "
'strsql = strsql & "systime,vtag1,vtag2,vtag3 ) values( "
'strsql = strsql & systime1 & "," & sysdate1 & ","
strsql = strsql & systime1 & "," & sysdate1 & ","
strsql = strsql & vtag1 & "," & vtag2 & "," & vtag3
strsql = strsql & ") "
'strsql = strsql & 1 & "," & 2 & "," & 3 & ")"
strCon = strprovider & strdatesource & strpsi
Set oconn = CreateObject("ADODB.Connection")
Set oRs = CreateObject("ADODB.Recordset")
oconn.ConnectionString = strCon
oconn.CursorLocation = 3
oconn.Open

oconn.Execute (strsql)
'oRs.Close
oconn.Close
Set oconn = Nothing
End Function
其中vb宏在调试器中通过，并且数据也加进数据库里了，但画面脚本动作不正常。主要是在access的日期时间字段的处理。vb宏中
systime1 = "#" & Format(TimeValue(Time()), "HH:MM:ss") & "#"
sysdate1 = "#" & Format(DateValue(Date), "yyyy-mm-dd") & "#"
可以把日期时间数据加进去了：但画面脚本动作中
systime1 = "#" & Format(TimeValue(Time()), "HH:MM:ss") & "#"
sysdate1 = "#" & Format(DateValue(Date), "yyyy-mm-dd") & "#"
就不行。为什么？怎样处理？
再有vb宏是否能在画面或全局脚本中调用，怎样调用？谢谢！！！