高手帮看一段简单的程序！在线等！谢谢

我用以下程序把informix里的数据转到SQL里面，现在有一个问题就是有时竟会把informix 里面的一条记录连续转了几百万条重复的那样在转！就像进入死循环一样,但程序看起来没问题啊？而且那只是有时才会，我们用系统自己调动程序的，用人工时从来不会的。我是从informix 读一条然后向 SQL 里写一条这样的原则！请高手帮看看问题在那？谢谢
Dim str_bmj08
 On Error Resume Next
strSQLI = "select * from mk_file'"
connI.CursorLocation = adUseClient
connI.Open strConnI
rsI.Open strSQLI, connI, adOpenKeyset, adLockPessimistic
'******************  以上是打开 informix 的数据 ************
If Not rsI.EOF Then
rsI.MoveFirst
Do While Not rsI.EOFIf IsNull(rsI("bmj08")) Then
 str_bmj08 = "N"
Else
 str_bmj08 = "Y"
End IfstrSQL = "insert into PL_file()values()"conn.CursorLocation = adUseClient
conn.Open strconn
'conn.BeginTrans    '提交事务开始
com.ActiveConnection = conn
com.CommandText = strSQL
com.Execute
'conn.CommitTrans   '提交一个事物
' 以上是写入SQLconn.Close
Set conn = NothingrsI.MoveNext
LoopElse
rsI.Close
Set rsI = Nothing
connI.Close
Set connI = Nothing
Exit SubEnd IfrsI.Close
Set rsI = Nothing
connI.Close
Set connI = Nothing