Try
Dim mxDocument As IMxDocument = DirectCast(m_application.Document, IMxDocument)
Dim map As IMap = mxDocument.FocusMap
Dim standaloneTableCollection As IStandaloneTableCollection = DirectCast(map, IStandaloneTableCollection)
Dim standAloneTable As IStandaloneTable = standaloneTableCollection.StandaloneTable(0)
Dim table As ITable = standAloneTable.Table
Dim dataset As IDataset = DirectCast(table, IDataset)
Dim workspace As IWorkspace = dataset.Workspace
Dim workspaceEdit As IWorkspaceEdit = DirectCast(workspace, IWorkspaceEdit)
If Not workspaceEdit.IsBeingEdited Then workspaceEdit.StartEditing(True)
workspaceEdit.StartEditOperation()
Dim insertCursor As ICursor = table.Insert(True)
Dim rowBuffer As IRowBuffer = table.CreateRowBuffer
Dim index As Int32 = table.Fields.FindField("scenario_id")
rowBuffer.Value(index) = "test scenario"
Dim oid As Int32 = Convert.ToInt32(insertCursor.InsertRow(rowBuffer))
workspaceEdit.StopEditOperation()
Marshal.ReleaseComObject(insertCursor)
Marshal.ReleaseComObject(rowBuffer)
workspaceEdit.StartEditOperation()
insertCursor = table.Insert(True)
rowBuffer = table.CreateRowBuffer()
rowBuffer.Value(index) = "test scenario"
insertCursor.InsertRow(rowBuffer)
workspaceEdit.StopEditOperation()
Marshal.ReleaseComObject(insertCursor)
Marshal.ReleaseComObject(rowBuffer)
workspaceEdit.StopEditing(True)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try