'Get the dataadapter
        lAdapter = Facade.HelperDatabase.GetAdapter("SELECT" & _
          "ID,TableName,RecordID,UserID FROM tabSystemLockedRecords", "INSERT" & _
          "INTO tabSystemLockedRecords(TableName, RecordID, UserID) VALUES (" & _
          "@TableName, @RecordID, @UserID); SELECT ID, TableName, RecordID," & _
          "UserID FROM tabSystemLockedRecords WHERE (ID = @@IDENTITY)", "UPDATE" & _
          "tabSystemLockedRecords SET TableName = @TableName, RecordID =" & _
          "@RecordID, UserID = @UserID WHERE (ID = @Original_ID) AND (RecordID" & _
          "= @Original_RecordID OR @Original_RecordID IS NULL AND RecordID IS" & _
          "NULL) AND (TableName = @Original_TableName OR @Original_TableName IS" & _
          "NULL AND TableName IS NULL) AND (UserID = @Original_UserID OR" & _
          "@Original_UserID IS NULL AND UserID IS NULL); SELECT ID, TableName," & _
          "RecordID, UserID FROM tabSystemLockedRecords WHERE (ID = @ID)", _
          "DELETE FROM tabSystemLockedRecords WHERE (ID = @Original_ID)")
 
            'Set the table property
            lTable.TableName = "tabSystemLockedRecords"
 
            'Fill the table
            lAdapter.Fill(lTable)
 
            'Create a new row
            lRow = lTable.NewRow
 
            'Enter the data for this row
            lRow.Item("TableName") = TableName
            lRow.Item("RecordID") = ID
            lRow.Item("UserID") = 1
 
            'Add the row to the datatable
            lTable.Rows.Add(lRow)
 
            'MsgBox(lTable.Rows.Count)
            'Update the data source
            lAdapter.Update(lTable)