Command - "Multiple-step OLE DB Operation generated errors"

[The_Grudge]

I have the following code within a Loop.

It works perfectly if I write one record at a time, but within the loop (loading multiple records) I get the error:

"Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done."

Why does this work once, but not on the second time through?

strWriteData = "INSERT INTO PROD.CSU_Clinic_Info(ID,Institution,Occurs,Clinic_Date,Location_Num,SID_DOC_NUM," & _
                         "Clinic_Num,Clinic_Code,Doc_Index,Rooms_Used,Time_Of_Day,Cancelled," & _
                         "Cancelled_Reason,Special,Hold,Reassignment,Day_Of_Week,Reinstate,Start_Date,End_Date,User_Name) " & _
                         "VALUES ('" & mUniqueID & _
                         "','" & mInstitution & _
                         "','" & mOccurs & _
                         "'," & "?" & _
                         ",'" & mLocation & _
                         "','" & mSID_DOC_NUM & _
                         "','" & mClinicNum & _
                         "','" & mClinic_Code & _
                         "','" & mDoc_Index & _
                         "','" & mRooms & _
                         "','" & mTime & _
                         "','" & mCancelled & _
                         "','" & mCancelledReason & _
                         "','" & mSpecial & _
                         "','" & mHold & _
                         "','" & mReassignment & _
                         "','" & mDayOfWeek & _
                         "','" & mReinstatement & _
                         "'," & "?" & _
                         "," & "?" & _
                         ",'" & mUserName & "')"
                         
                                                            
                        com.Parameters.Append com.CreateParameter("ClinicDate", adDate, adParamInput, , mClinic_Date)
                        com.Parameters.Append com.CreateParameter("StartDate", adDate, adParamInput, , mStart_Date)
                        com.Parameters.Append com.CreateParameter("EndDate", adDate, adParamInput, , mEnd_Date)
                         
          
       com.CommandText = strWriteData
       com.Execute 'Execute command