错误在哪？

'On Error GoTo AdoErr:
If AddFlag = "ADD" Then
   rdCon.AddNew
   rdCon.Fields("cConCode") = txtConCode
End If
rdCon.Fields("cConName") = txtConName
Set rdFindCus = SysCon.Execute("select cCusCode from Cus where Rtrim(Ltrim(cCusName))='" & Trim(txtCus) & "'")
rdCon.Fields("cCusCode") = rdFindCus.Fields(0)
rdCon.Fields("dConDate") = dtpConDate
rdCon.Fields("mConMoney") = txtConMoney
rdCon.Fields("cMemo") = txtMemo
If txtFileName <> "" Then
   If Dir(Trim(txtFileName)) <> "" Then
      If chkSaveFlag.Value = 1 Then
         Dim rdMSTream As ADODB.Stream
         Set rdMSTream = New ADODB.Stream
         rdMSTream.Type = adTypeBinary
         rdMSTream.Open
         rdMSTream.LoadFromFile txtFileName
         rdCon.Fields("cFile").Value = rdMSTream.Read
         rdCon.Fields("cSaveFlag") = "True"
         txtFileName = Right(Trim(txtFileName), Len(Trim(txtFileName)) - InStrRev(txtFileName, "\"))
      Else
         rdCon.Fields("cSaveFlag") = "False"
      End If
      rdCon.Fields("cFileName") = txtFileName
      rdCon.Fields("iFileSize") = txtFileSize
      rdCon.Fields("dFileTime") = txtFileTime
   End If
End If
If txtDef1 <> "" Then rdCon.Fields("cDefine1") = txtDef1
If txtDef2 <> "" Then rdCon.Fields("cDefine2") = txtDef2
If txtDef3 <> "" Then rdCon.Fields("cDefine3") = txtDef3
If txtDef4 <> "" Then rdCon.Fields("cDefine4") = txtDef4
If txtDef5 <> "" Then rdCon.Fields("cDefine5") = txtDef5
If txtDef6 <> "" Then rdCon.Fields("cDefine6") = txtDef6
'开始事物****************
SysCon.BeginTrans
rdCon.Update
SysCon.CommitTrans
'************************