Dim WriteHandle,SQL,RowsChanged,ErrorMessage,Result

If (MenuIndex = 4) Then
	With DebtorObject.Database
		WriteHandle = .StatementOpen(.ConnectionWrite)
		Result = False
		ErrorMessage = "Something Bad Happened :("
		SQL = "Execute sp_racs_UpdateDebtorSystemDescriptions"

		If .ExecuteSQL(CInt(WriteHandle), SQL) = True Then
			RowsChanged = .RowCount(CInt(WriteHandle))
			If (RowsChanged > 0) Then
                        	ErrorMessage = CStr(RowsChanged) & " Rows Updated"
				Result = True
			Else
				ErrorMessage = "No Updates Required"
				Result = False
			End If
		Else
			ErrorMessage  = .ErrorMessage
			Result = False
		End If
 
		If Result = True Then
			.Commit
		Else
			.Rollback
		End If

		.StatementClose(CInt(WriteHandle))
		MsgBox ErrorMessage

	End With
	FormObject.ReadRecord 0 ' Refresh our current record Even if it has NOT been changed - just for safety
End If

End Sub
