比秒更小的单位

Question

Text1.Text = Format(Now, "yyyy-mm-dd hh:nn:ss")Call ConnectDB1
If connect = True ThenDim v As String
v = "0037001.030241.00004295"
'v = "20"
'strsql = vbNullString
strsql = "SELECT * FROM epcistest1.dbo.TB_Object WHERE DSepclist_c = '" & v & "'"
  lblx.Caption = strsql                DBCon.Execute strsqlText2.Text = Format(Now, "yyyy-mm-dd hh:nn:ss")
    Else
        MsgBox "DB 楷搬 角菩 !!!", 16, "犬牢芒"
        Exit Sub
DBCon.Close
===================
就是第一个TEXT记录运行开始的时间，第二个TEXT 记录的是执行一个SQL后 时间问题是：我想精确到毫秒级别，比如 2009-05-21 10：34：49.035  毫秒级别 的数字 保留两位就可以了（MSGBOX乱码不用管）

Answer 1

Function GetFullTime() As String
    Dim fTime As Single
    Dim dt As Date
    
    fTime = Timer()
    dt = DateAdd("s", Int(fTime), Date)
    GetFullTime = Format$(dt, "yyyy-mm-dd hh:nn:ss") & _
                  Format$(fTime - Int(fTime), ".000")
End FunctionText1.Text = GetFullTime()
...    
Text2.Text = GetFullTime()