Table creation Error "Ref Count for this object is higher than 0"

Question

Hi All
I have a problem in creation of table using SDK on a button event.  I have a procedure to create tables and fields. If I call this procedure on a menu Event than it works fine but If I call this procedure on a button event than It gives error "Ref count for this object is higher than 0" . I know this error occur When an object does not release after creating a table. but this error occur at when first table is created. My code it given below. plz see and give me your valuable suggestions.
  Dim oUserTablesMD As SAPbobsCOM.UserTablesMD
            Try
                oUserTablesMD = B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserTables)
                oUserTablesMD.TableName = "AM_OBIN"
                oUserTablesMD.TableDescription = "PutAway Table"
                oUserTablesMD.TableType = BoUTBTableType.bott_Document
                lRetCode = oUserTablesMD.Add
                '// check for errors in the process
                If lRetCode <> 0 Then
                    B1Connections.diCompany.GetLastError(lRetCode, sErrMsg)
                    MsgBox(sErrMsg)
                Else
                    B1Connections.theAppl.StatusBar.SetText("Table: " & oUserTablesMD.TableName & " was added successfully", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success)
                End If
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserTablesMD)
                oUserTablesMD = Nothing
                GC.Collect()
                oUserTablesMD = B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserTables)
                oUserTablesMD.TableName = "AM_BIN1"
                oUserTablesMD.TableDescription = "PutAway Upper Grid"
                oUserTablesMD.TableType = BoUTBTableType.bott_DocumentLines
                lRetCode = oUserTablesMD.Add
                '// check for errors in the process
                If lRetCode <> 0 Then
                    If lRetCode = -1 Then
                    Else
                        B1Connections.diCompany.GetLastError(lRetCode, sErrMsg)
                        MsgBox(sErrMsg)
                    End If
                Else
                    B1Connections.theAppl.StatusBar.SetText("Table: " & oUserTablesMD.TableName & " was added successfully", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success)
                End If
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserTablesMD)
                oUserTablesMD = Nothing
                GC.Collect()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
Thanks
Regards
Gorge

Answer 1

Hi Gorge,
The "Ref count error..." usually occurs in case of Meta Data objects not being properly cleared.  And yes, you have got the error in the right place, generally while creating tables / fields / UDOs.  For this, you just need to clear the Meta Data object (At times even DI objects like Record Set) once they are used.
Eg: Release these objects in the below way in a Finally Block.
System.Runtime.InteropServices.Marshal.ReleaseComObject(oRecordSet);
Hope this helps.
Regards,
Satish