[新手求助，急！]关于增加记录问题（VB6升级到VB2005）
从VB6升级到VB2005，增加记录时VB6能增加成功，VB2005不能，而且不提示任何错误。用DEBUG跟踪执行的返回值好像也都一样，请各位大虾指点一下原因，多谢！！
VB6：
Set rs = New ADODB.Recordset
CONN.BeginTrans
strSQL = cnstpymtSQL & " where pymt_desc_tx = '" & strFlag & "'"
rs.ActiveConnection = CONN
rs.Open strSQL, , adOpenKeyset, adLockOptimistic, adAsyncFetch
rs.AddNew
rs!PYMT_DTL_ID = clsPmtLineMths.PYMT_DTL_ID
rs!PYMT_DESC_TX = clsPmtLineMths.MANUAL_ADJ_DESC
rs!PYMT_VOL_NB = clsPmtLineMths.MANUAL_ADJ_VOL
rs!PYMT_RT_AM = clsPmtLineMths.MANUAL_ADJ_RT
rs!EXPEN_TYPE_ID = clsPmtLineMths.EXPEN_TYPE_ID
rs!OWN_ID = clsPmtLineMths.OWN_ID
rs!OWN_TP = clsPmtLineMths.OWN_TP
rs!YYYYMM = clsPmtLineMths.YYYYMM
rs!ENTR_DT = Now
rs!UPDT_DT = Now
rs!USR_UPDT_NM = getUsr
rs!Yyyymm_due = clsPmtLineMths.Yyyymm_due
If Not clsPmtLineMths.SAP_ACCT_NB = "Payee Default" Then
rs!SAP_ACCT_NB = clsPmtLineMths.SAP_ACCT_NB
End If
If Not clsPmtLineMths.SAP_COST_CNTR = "Payee Default" Then
rs!SAP_COST_CNTR = clsPmtLineMths.SAP_COST_CNTR
End If
rs.Update
lngAdd = rs!MNL_PYMT_ID
clsPmtLineMths.MNL_PYMT_ID = lngAdd
strKey = "mnl_pymt_" & CStr(lngAdd)
CONN.CommitTrans
VB2005：
rs = New ADODB.Recordset
strSQL = cnstpymtSQL & " where pymt_desc_tx = '" & strFlag & "'"
rs.let_ActiveConnection(CONN)
rs.Open(strSQL, , ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, ADODB.ExecuteOptionEnum.adAsyncFetch)
rs.AddNew()
rs.Fields("PYMT_DTL_ID").Value = clsPmtLineMths.PYMT_DTL_ID
rs.Fields("PYMT_DESC_TX").Value = clsPmtLineMths.MANUAL_ADJ_DESC
rs.Fields("PYMT_VOL_NB").Value = clsPmtLineMths.MANUAL_ADJ_VOL
rs.Fields("PYMT_RT_AM").Value = clsPmtLineMths.MANUAL_ADJ_RT
rs.Fields("EXPEN_TYPE_ID").Value = clsPmtLineMths.EXPEN_TYPE_ID
rs.Fields("OWN_ID").Value = clsPmtLineMths.OWN_ID
rs.Fields("OWN_TP").Value = clsPmtLineMths.OWN_TP
rs.Fields("YYYYMM").Value = clsPmtLineMths.YYYYMM
rs.Fields("ENTR_DT").Value = Now
rs.Fields("UPDT_DT").Value = Now
rs.Fields("USR_UPDT_NM").Value = getUsr
rs.Fields("Yyyymm_due").Value = clsPmtLineMths.Yyyymm_due
If Not clsPmtLineMths.SAP_ACCT_NB = "Payee Default" Then
rs.Fields("SAP_ACCT_NB").Value = clsPmtLineMths.SAP_ACCT_NB
End If
If Not clsPmtLineMths.SAP_COST_CNTR = "Payee Default" Then
rs.Fields("SAP_COST_CNTR").Value = clsPmtLineMths.SAP_COST_CNTR
End If
rs.Update()
lngAdd = rs.Fields("MNL_PYMT_ID").Value
clsPmtLineMths.MNL_PYMT_ID = lngAdd
strKey = "mnl_pymt_" & CStr(lngAdd)
CONN.CommitTrans()
