vb程序运行时间
我做了一个系统在VB中实现数据库的各种操作的计时其中有段代码如下：
谁能告诉我怎么计算其执行的时间啊
Private Sub Command5_Click()
Dim i, j As Integer
Dim n As Long
n = Val(Text5.Text)‘设定的插入条数
For i = 1 To n
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("s_name") = Text1.Text
Adodc1.Recordset.Fields("s_sex") = Text2.Text
Adodc1.Recordset.Fields("s_id") = Text3.Text
Adodc1.Recordset.Fields("s_class") = Text4.Text
Adodc1.Recordset.Update
Text3.Text = Val(Text3.Text) + 1
Next i
j = MsgBox("数据添加成功！")
End Sub
大家帮帮忙啊！！！！！！！
