I need help.

Errors:
1) System.Data.SqlClient.SqlException: Distributed transaction completed.
Either enlist this session in a new transaction or the NULL transaction.

2) System.Runtime.InteropServices.COMException (0x8004D00E): Exception from
HRESULT: 0x8004D00E.
------------------------------------------------------------------------
Code Attached
=============

Try
objSqlCon.Open()
objTransaction = objSqlCon.BeginTransaction
objCom.Transaction = objTransaction



'Inserts a Campaign in a table and returns the identity.
'=======================================
objCom.CommandType = CommandType.StoredProcedure
objCom.CommandText = "MDTS_INSERT_CAMPAIGN"
dr = objCom.ExecuteReader()

If (dr.Read()) Then
decInserted_Camp_ID = dr.GetDecimal(0)
emailId = "admin" & decInserted_Camp_ID.ToString
End If
dr.Close()

If (Not strURL.Trim = "") Then
'Inserts come more data in another table.
'=============================
objCom.CommandType = CommandType.StoredProcedure
objCom.CommandText = "MDTS_INSERT_CAMPAIGN_URL"
objCom.ExecuteNonQuery()
End If

'Storing file attachment content as an array of byte
'================================================= ==
If (strAttachFileName.Equals("") = False) Then
Try
'Inserts Some attachment/binary data in another table
'======================================
objCom.CommandText = "MDTS_INSERT_ITEM"
objCom.CommandType = CommandType.StoredProcedure
objCom.ExecuteNonQuery()
Catch Exc As Exception
'Error Logging
'==========
Dim objLog As New MdtsErrorLog()
objLog.LogError("FrontDesk", "clsViewCampaignOrder" & vbNewLine &
"decInsertCampaignOrder() Exception [Inner]: " & vbNewLine & Exc.ToString)
objLog = Nothing
End Try
End If
'==================================

objJmail.Domain = DomainName
objJmail.bl_createPOP(emailId)
'Logging pop mail creation
'==================


'ADDED FOR CREATING THE MAIL ACCOUNT
'Adding new list of Recipients for the current campaign
'======================================
doc.LoadXml(strXML4Recipients)
node = doc.DocumentElement
nodelist = node.SelectNodes("/MDTS/MdtsCampaign/Recipients/Recipient")

'Inserts Mail Recipients Data in another table in loop
'=====================================
For intCounter = 0 To nodelist.Count - 1
If (IsNothing(nodelist(intCounter).Attributes("To")) = False) Then
strEMailID = nodelist(intCounter).Attributes("To").Value
strTempXML4Recipient = "<MDTS><MdtsCampaign><Recipients>"
strTempXML4Recipient = strTempXML4Recipient & nodelist(intCounter)
..OuterXml
strTempXML4Recipient = strTempXML4Recipient &
"</Recipients></MdtsCampaign></MDTS>"

objCom.CommandType = CommandType.StoredProcedure
objCom.CommandText = "MDTS_INSERT_RECIPIENTS"
objCom.ExecuteNonQuery()
End If
Next

'Finally Commits
'===========
objTransaction.Commit()
Return decInserted_Camp_ID
Catch Exc As Exception
'InCase of Error, calls for a Rollback
'=========================
objTransaction.Rollback()

'Error Logging
'==========
Dim objLog As New MdtsErrorLog()
objLog.LogError("FrontDesk", "clsViewCampaignOrder" & vbNewLine &
"decInsertCampaignOrder() Exception [Outer]: " & vbNewLine & Exc.ToString)
objLog = Nothing
Return 0
Finally
objTransaction.Dispose()
dr.Close()
objCom.Dispose()
objSqlCon.Close()
objSqlCon.Dispose()
dr = Nothing
objJmail = Nothing
objTransaction = Nothing
node = Nothing
nodelist = Nothing
doc = Nothing
objCom = Nothing
objSqlCon = Nothing
End Try