如何在VB程序里 一次输入多组数据到数据库里

    Call ConnectDB1
    If connect = True Then
                strsql = vbNullString
                strsql = strsql & "INSERT INTO TB_Event(dsEventTime, dsRecordTime,dschild,dsparent, DSBS, DSDIS, DSRP, DSBL,  DSACT_O, DSACT_A, DSACT_T) values ('" & EventTime & "', sysdate,17140,17140, 1, 1, 1,1,2,1,3 )"
             
DBCon.Execute strsql
DBRec0.Close

Else
        MsgBox "DB 楷搬 角菩 !!!", 16, "犬牢芒"
        Exit Sub
    End If
   
    DBCon.Close。
问题如题目，（MSGBOX的乱码不用管，VALUE的值没有错误）
程序的问题 1 运行的时候 出错，在DBCon.Execute strsql这个地方
2.我直接在数据库里插入的时候 每次只能插了一组，我想一次插入3000组 怎么解决

---

1, EventTime 是什么属性？
2， informix里用 ‘；’分开。

---

循环插入.循环的条件得你自己定

---

引用

1, EventTime 是什么属性？
2， informix里用 ‘；’分开。

EventTime = Format(Now, "yyyy-mm-dd hh:nn:ss")  ,2 你能不能说的具体点

---

引用

循环插入.循环的条件得你自己定

我不会循环插入 所以问的。。。