为什么 "insert" 这么慢?????/

Question

我使用的是 SQLANYWHERE 5.0 ,我执行如下操作:
Sub InsertMeterXlData(jld As Integer, SJFW As Single, ZXXLZ As Single, ZXXLJ As Single, ZXXLF As Single, ZXXLP As Single, _
    ZXXLG As Single, FXXLZ As Single, FXXLJ As Single, FXXLF As Single, FXXLP As Single, FXXLG As Single, ZXXLZSJ As String, _
    ZXXLJSJ As String, ZXXLFSJ As String, ZXXLPSJ As String, ZXXLGSJ As String, FXXLZSJ As String, FXXLJSJ As String, _
    FXXLFSJ As String, FXXLPSJ As String, FXXLGSJ As String)
    Dim SqlSel As String
     On Error GoTo ERRMANEGE
    DB.BeginTrans    Call GETSERVERTIME
    SqlSel = "insert into meter.t_zjcx_xlsj" & _
             "(f_jld_numb,f_datetime,f_ct_ratiao,f_pt_ratiao,f_read_,f_data_area,f_zxxljf,f_zxxlf,f_zxxlp," & _
             "f_zxxlg,f_zxxlz,f_zxxljfs,f_zxxlfs,f_zxxlps,f_zxxlgs,f_zxxlzs,f_fxxljf,f_fxxlf,f_fxxlp,f_fxxlg," & _
             "f_fxxlz,f_fxxljfs,f_fxxlfs,f_fxxlps,f_fxxlgs,f_fxxlzs)" & _
             " values(" & jld & ",'" & NOWSTR & "'," & CTRATIO & "," & PTRATIO & "," & CDBZ & "," & SJFW & "," & _
             ZXXLJ & "," & ZXXLF & "," & ZXXLP & "," & ZXXLG & "," & ZXXLZ & ",'" & ZXXLJSJ & "','" & ZXXLFSJ & _
             "','" & ZXXLPSJ & "','" & ZXXLGSJ & "','" & ZXXLZSJ & "'," & FXXLJ & "," & FXXLF & "," & FXXLP & _
             "," & FXXLG & "," & FXXLZ & ",'" & FXXLJSJ & "','" & FXXLFSJ & "','" & FXXLPSJ & "','" & _
             FXXLGSJ & "','" & FXXLZSJ & "')"
            
    DB.Execute SqlSel
    DB.CommitTrans
    err.Clear
    Exit Sub
ERRMANEGE:
    DB.RollbackTrans
    err.Clear
End Sub
发现非常慢,这时硬盘灯在不停的闪(我是循环调用该过程),如何提高速度???
谢谢