For i = 0 To Intzwqd - 1
     DataGridhwqd.row = i
     hwqdsql = "insert into bjhwqd (bjdbh,zwmc,zwpm,zwgg,zwjs,zwcj,zhym,bz,no1,yszbh) values ('"
     hwqdsql = hwqdsql & Trim(DataGridhwqd.Columns("bjdbh").Text) & "','" & Trim(DataGridhwqd.Columns("树(材)种").Text) & "','" & Trim(DataGridhwqd.Columns("品名").Text) & "','" & Trim(DataGridhwqd.Columns("规格").Text) & "','" & DataGridhwqd.Columns("根(块、件)数").Text & "','" & DataGridhwqd.Columns("材积").Text & "','" & DataGridhwqd.Columns("折合原木材积").Text & "','" & Trim(DataGridhwqd.Columns("备注").Text) & "'," & i + 1 & ",'0');"
     CnNew.Execute (hwqdsql)
     
  Next
使用的是datagrid控件,把datagrid里的数据写入数据库,行数小于4行时可以正常写入,但多于4行就不行,不知是怎么回事,该怎么解决,datagrid控件在窗体上的高度为4行左右